在我們的日常工作中，我們可能會遇到將數百張工作表或工作簿合併為一張工作表以分析數據的問題，如果您在Excel中使用“複製和粘貼”命令，則該過程將花費大量時間。 在本教程的此處，我將提供一些快速解決此工作的技巧。

快速導航

>使用VBA將活動工作簿的所有工作表合併為一個工作表
>單擊將數十個工作表或工作簿合併到一個工作表/工作簿中
>將兩個表合併為一個，並通過單擊按列更新
>下載樣本文件

在本節中，我提供一個VBA代碼，該代碼將創建一個新工作表，以在運行時收集活動工作簿的所有工作表。

1.激活要合併其所有工作表的工作簿，然後按 其他 + 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 鍵，則工作表中的所有數據都已合併到名為“合併”的新工作表中，該新工作表位於所有工作表的前面。

使用VBA，您只能在活動工作簿中合併工作表，但是如何將工作簿中的工作表合併到工作表或工作簿中？

將工作簿中的工作表合併為一張工作表

將工作簿中的工作表合併到一個工作簿中

為了解決這項工作並滿足對紙張組合的其他要求， 結合 功能已通過以下四種組合方案開發：

• 將多張工作表或工作簿合併為一張
• 將多個工作表或工作簿合併為一個工作簿
• 將相同的姓名表合併為一張
• 將工作表或工作簿中的值合併為一張工作表

這里以第二個選項為例：

將多個工作表或工作簿合併為一個工作簿

後 免費安裝 Kutools for Excel，請執行以下操作：

1.激活Excel，單擊 Kutools 加 > 結合，會彈出一個對話框，提醒您要合併的工作簿需要關閉。 請點擊 OK 以繼續。

2。 在裡面 合併工作表步驟1 對話框，檢查 將工作簿中的多個工作表合併到一個工作簿中 選項。 點擊 下一頁 轉到嚮導的下一步。

3。 點擊 添加 > 文件 or 夾 將您要合併的工作簿添加到 工作簿清單 窗格，然後您可以通過檢查名稱來指定將哪些工作表連接在一起 工作表清單 窗格。 請點擊 下一頁 轉到嚮導的最後一步。

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

5.彈出一個窗口，供您選擇一個文件夾以放置組合的工作簿，然後單擊 節省.

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

如果您想將兩個表合併為一個表並根據一列更新數據，如下面的屏幕截圖所示，可以嘗試 表格合併 的效用 Excel的Kutools.

後 免費安裝 Kutools for Excel，請執行以下操作：

1。 點擊 Kutools 加 > 表格合併 啟用 表格合併 嚮導。

2.在嚮導的步驟1中，您需要分別選擇主表和查找表範圍。 然後點擊 下一頁.

3.在主表上檢查要更新數據的鍵列。 請點擊 下一頁.

4.然後檢查您要基於查找表更新數據的主表中的列。 請點擊 下一頁.

5.在嚮導的步驟4中，檢查要從查找表添加到主表的列。 請點擊 下一頁.

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

現在，主表已更新數據並基於查找表添加新數據。