excel拆分单元格，然后每个拆分出的单元格沿用原未拆分单元格内容

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 

宏如上所示。转载自http://www.poluoluo.com/zt/201105/130553.html