1. 程式人生 > >Excel 拆分單元格後資料填充,如果是大量的資料如何辦?(圖)

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