Sub   拆分() 
        Dim   c   As   Range 
        For   Each   c   In   ActiveSheet.UsedRange.Cells 
                If   c.MergeCells   Then 
                        c.Select 
                        c.UnMerge 
                        Selection.Value   =   c.Value 
                End   If 
        Next   c 
End   Sub