如何將多個工作表或工作簿合併到一個工作表中？

在我們的日常工作中，可能會遇到需要將數百個工作表或工作簿合併到一個工作表中進行數據分析的情況。如果使用 Excel 中的複製和粘貼命令，這會花費大量時間。在本教程中，我將提供一些快速解決此問題的小技巧。

快速導航

>使用 VBA 將活動工作簿中的所有工作表合併到一個工作表中
>通過點擊將數十個工作表或工作簿合併到一個工作表/工作簿中
>通過點擊將兩個表格合併為一個並根據某一列更新
>下載範例檔案

在本節中，我提供了一段 VBA 代碼，當你運行它時，它會創建一個新的工作表來收集活動工作簿中的所有工作表。

1. 啟動要合併其所有工作表的工作簿，然後按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在彈出的窗口中，點擊 插入 > 模組 以創建一個新的模組腳本。

3. 複製以下代碼並將其粘貼到腳本中。

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

4. 按 F5 鍵，然後所有工作表中的數據都會被合併到一個名為“Combined”的新工作表中，該工作表位於所有工作表的最前面。

使用 VBA，您只能合併活動工作簿中的工作表，但如何跨工作簿合併工作表到一個工作表或工作簿呢？

跨工作簿合併工作表到一個工作表中

跨工作簿合併工作表到一個工作簿中

為了解決這個問題並滿足其他工作表合併的需求，Combine 功能已經開發了四種合併場景：

• 將多個工作表或工作簿合併到一個工作表中
• 將多個工作表或工作簿合併到一個工作簿中
• 將同名工作表合併到一個工作表中
• 將跨工作表或工作簿的值合併到一個工作表中

這裡以第二個選項為例：

將多個工作表或工作簿合併到一個工作簿中

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 啟動 Excel，點擊 Kutools Plus > Combine，會彈出一個對話框提醒您要合併的工作簿需要關閉。點擊 確定 繼續。

2. 在“合併工作表”第 1 步對話框中，勾選“將多個工作簿中的工作表合併到一個工作簿”選項。點擊下一步進入向導的下一個步驟。

3. 點擊 添加 > 文件或文件夾 將要合併的工作簿添加到工作簿列表窗格中，然後您可以在工作表列表窗格中勾選要合併的工作表名稱。點擊下一步進入向導的最後一步。

4. 在這一步中，根據需要指定設置。然後點擊完成。

5. 彈出一個窗口讓您選擇一個文件夾來放置合併後的工作簿，然後點擊保存。

現在，這些工作簿已經合併到一個工作簿中。並且在所有工作表的最前面，還創建了一個名為 Kutools for Excel 的主工作表，其中列出了有關這些工作表的一些信息以及每個工作表的鏈接。

如果您想將兩個表格合併為一個，並根據某一列更新數據（如下圖所示），您可以嘗試 Kutools for Excel 的 Tables Merge 工具。

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > Tables Merge 啟用 Tables Merge 向導。

2. 在向導的第一步中，您需要分別選擇主表格和查找表格的區域。然後點擊下一步。

3. 勾選要在主表格中基於其更新數據的關鍵列。點擊下一步。

4. 然後勾選要在主表格中基於查找表格更新數據的列。點擊下一步。

5. 在向導的第四步中，勾選要從查找表格添加到主表格的列。點擊下一步。

6. 在向導的最後一步中，根據需要指定設置選項。然後點擊完成。

現在，主表格已經根據查找表格更新了數據並添加了新數據。