如何快速把多個excel表合併成一個excel表

很多朋友會遇到這樣的問題，就是很有很多頁的數據，少的有幾十頁，多的可能有幾百頁，然後需要合併到一個頁面做數據分析，如果一頁頁的複製粘貼的話，就比較麻煩。下面我就介紹一種利用excel的宏計算來解決這個問題，有需要的朋友可以參考一下哦，希望能對大家有所幫助。

操作方法

（01）在原始數據同目錄下新建一個工作簿，建立兩個工作表，名稱分別為“首頁”和“合併彙總表”。

（02）按Alt+F11進入VBA代碼編輯和調試界面。

（03）在工具欄中找到插入，點擊插入，選擇模塊。

（04）將下述代碼粘貼到模塊空白處：複製代碼代碼如下:Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = layAlerts = FalseWorksheets("合併彙總表")teSet wsNewWorksheet = (, after:=Worksheets(t)) = "合併彙總表"MyFileName = penFilename("Excel工作薄 (**),**")If MyFileName = "False" ThenMsgBox "沒有選擇文件！請重新選擇一個被合併文件！", vbInformation, "取消" Filename:=MyFileNameNum = tMyName = Set DataSource = tBox(prompt:="請選擇要合併的數據區域：", Type:=8)AddressAll = e(AddressAll)ctSourceDataRows = tSourceDataColumns = enUpdating = leEvents = FalseFor i = 1 To ts(i)ts(i)e(AddressAll)ActiveSheetName = Workbooks()ts("合併彙總表")ts("合併彙總表")e("A" & DataRows)e = ts("合併彙總表")e(Cells(DataRows, 2), Cells(DataRows, 2))eSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=eSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName)vateNext enUpdating = leEvents = TrueEnd IfWorkbooks(MyName)eEnd Sub

（05）找到工具欄的“開發工具”，點擊“插入”，找到表單控件裏的窗體控件，在“首頁”工作表中按下圖示範插入一個窗體控件並指定宏為插入的代碼名稱。

（06）點擊“首頁”工作表中插入的按鈕，根據提示，瀏覽到原始數據工作簿。

（07）用鼠標選擇要合併的數據範圍，點擊確定按鈕，合成成功。