First you should unmerge cells in your .xls file. The given code will unmerge cells properly.
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
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.