Excel 拆分单元格后数据填充，如果是大量的数据如何办？（图）

如果有如下数据源：

我想拆分单元格后，把数据填充回单元格中，如下图：



数据量太大的情况下，我不可能一个一个去手动的CTRL+C,CTRL+V吧


去网上查了查，有人说：“内事不决查百度，外事不决查谷歌”。


网上多数在说要用到“宏”，写一个函数（方法），不会写只能去抄一个，看一下，能不能用。EXCEL2010-“视图”-宏（在工具栏最右边）

先要取个名字“拆分填充”，现输入一个快捷键，如CTRL+D

编辑宏：copy一个在网上找的方法：

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
Application.Goto Reference:="拆分填充"
ActiveWorkbook.Save
Range("C3:C9").Select
Application.Run "'复件 广汉.xls'!拆分填充"
Range("E12").Select
ActiveWindow.SmallScroll Down:=198
Columns("B:B").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=594
End Sub

按“CTRL+D”执行了，（吓一跳，由于数据量太大，EXCEL卡住了）