首先,您应该取消合并.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