Excel 拆分單元格後資料填充,如果是大量的資料如何辦?(圖)
阿新 • • 發佈:2019-01-22
如果有如下資料來源:
我想拆分單元格後,把資料填充回單元格中,如下圖:
資料量太大的情況下,我不可能一個一個去手動的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卡住了)