首先选中所有要拆分的单元格,选择拆分
然后按F5
然后输入=a1(假设你单元格从a1开始),CTRL+回车
完成
方法如下:
Sub 拆分()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.MergeCells Then
c.Select
c.UnMerge
Selection.Value = c.Value
End If
Next c
End Sub
直接复制就可以了!
这还叫问题啊,复制不就行了么