Sub 拆分填充()
Dim x As Range
For Each x In ActiveSheet.UsedRange.Cells
If x.MergeCells Then
x.Select
x.UnMerge
Selection.Value = x.Value
End If
Next x
End Sub
excel 拆分填充
猜你喜欢
转载自tongda.iteye.com/blog/1856349
今日推荐
周排行