请问如何用vba编程找到当前sheet中所有的合并单元格，将他们全部拆分并赋值为拆分前的值

Question

如题，请问如何用vba编程找到当前sheet中所有的合并单元格，将他们全部拆分并赋值为拆分前的值？

Answer 1

试试这个
Sub yy()
Dim rn As Range, r As Range, m As Range
For Each rn In ActiveSheet.UsedRange
    If rn.MergeCells Then
        Set m = rn.MergeArea
        s = m.Cells(1, 1)
        m.UnMerge
        m.Value = s
    End If
Next
End Sub

Answer 2

微微简化
Sub yy()
Dim rn As Range, m As Range
For Each rn In ActiveSheet.UsedRange
    If rn.MergeCells Then
        Set m = rn.MergeArea
        s = m.Cells(1, 1)
        m.UnMerge
        m = s
    End If
Next
End Sub