拆分单元格,并将合并时的单元格的内容填充到各个拆分的单元格中。
Sub 拆分单元格()
'
' 拆分单元格 Macro
' 宏由 feng 录制,时间: 2010-12-26
'
' 快捷键: Ctrl+m
'
Dim c As Range
For Each c In Application.Selection
If c.MergeCells Then
c.Select
c.UnMerge
Selection.Value = c.Value
End If
Next c
End Sub