首先,您应该取消合并.xls文件中的单元格。给定的代码将正确地取消合并单元格。
Sub activesheet_unmerge()
Dim c As Range
Dim c2 As Range
Dim rMergeArea As Range
Dim vMergeValue As Variant
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
Set rMergeArea = c.MergeArea
vMergeValue = c.Value
rMergeArea.unmerge
For Each c2 In rMergeArea
c2.Value = vMergeValue
Next
End If
Next
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句