首先选中所有要拆分的单元格，选择拆分
然后按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
直接复制就可以了！
这还叫问题啊，复制不就行了么
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024