Sub doone(c)

s = c.FormulaR1C1

Selection.UnMerge

For Each vcell In c.Cells
vcell.FormulaR1C1 = s
Next vcell

End Sub


Sub doall()

For Each vcell In Selection.Cells
doone (vcell)
Next vcell

End Sub



再改：也是不行

Sub ss()


For Each vcell In Selection.Cells
s = vcell.FormulaR1C1

ts = vcell.Cells '先记住拆分前包含的格子们
vcell.UnMerge

For Each vcell2 In ts
vcell2.FormulaR1C1 = s
Next vcell2

Next vcell

End Sub