取消Excel中合并单元格的代码

Unmerge and Fill.vba

Sub UnMergeFill()
 
'from http://stackoverflow.com/questions/9215022/unmerging-excel-rows-and-duplicate-data
 
Dim cell As Range, joinedCells As Range

on error resume next
For Each cell In ThisWorkbook.ActiveSheet.UsedRange
    If cell.MergeCells Then
        Set joinedCells = cell.MergeArea
        cell.MergeCells = False
        joinedCells.Value = cell.Value
    End If
    Next
 
End Sub