怎樣將多個excel表格合併到一個excel表格中

Excel表格是一個數據彙總的實用工具之一，也是各行業都需要用到的資料彙總工具之一。當資料過多時，就需要用excel表格的技巧去分類處理這些資料，那麼怎樣將多個excel表格合併到一個excel表格中呢，下面就來看看步驟吧：

操作方法

（01）首先將需要合併的excel所有表格存放在同一個資料夾中，如下圖：

（02）然後再該資料夾中新建一個空白的excel表格，如下圖：

（03）然後開啟新建的excel表格，找到sheet1，然後在sheet1上面滑鼠單擊右鍵，點選“檢視程式碼”，如下圖：

（04）點選“檢視程式碼”後，就會出現下圖中的框框，然後在右邊框框中填入下列程式碼：Sub 合併當前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As enUpdating = FalseMyPath = MyName = Dir(MyPath & "" & "*")AWbName = Num = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = (MyPath & "" & MyName)Num = Num + 1With Workbooks(1)s(e("A65536")(xlUp) + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To ts(G) s(e("A65536")(xlUp) + 1, 1)NextWbN = WbN & Chr(13) & e FalseEnd WithEnd IfMyName = DirLoopRange("A1")enUpdating = TrueMsgBox "共合併了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

（05）程式碼填入好後，如果程式碼出現紅色的，那說明改程式碼有問題，需要更改，反之正常。

（06）確定程式碼無誤後，再點選下圖中箭頭所指的圖示或者是按快捷鍵F5，即可開始excel表格的合併執行

（07）若結果彈出下面的對話方塊，這說明合併成功，反之就沒有

特別提示

需要實現這個功能的前提是需要使用Microsoft Excel，而WPS Excel是實現不了的

一定要注意所填入的程式碼的正確性和規範性