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