Excel取消合并保留内容

Sub 取消合并保留内容()
    For i = 2 To Range("C1048576").End(xlUp).Row
        单元格的值 = Range("C" & i).Value
        合并单元格的数量 = Range("C" & i).MergeArea.Count
        Range("C" & i).UnMerge
        Range("C" & i).Resize(合并单元格的数量, 1).Value = 单元格的值
        i = i + 合并单元格的数量 - 1
    Next
End Sub