摘要: 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 ... 阅读全文
posted @ 2014-01-16 11:04 kinsey 阅读(186) 评论(0) 推荐(0)