打开宏:
查看宏
1.拆分单元格并自动填充数据
Sub 拆分填充()
'
' 拆分填充 宏
'
' 快捷键: Ctrl+d'
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
注意:以上代码的有,快捷键: Ctrl+d ,只可应用于当前页面。
例:
2