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卡住了）