Excel 教程：將多個工作簿/工作表合二為一
在 Excel 中，合併工作表對於大多數 Excel 用戶（尤其是新手）來說是一項常見但有些困難的任務。 在本教程中，列出了您可能面臨的幾乎所有組合場景，並為您提供了相對專業的解決方案。 您可以點擊下方導航列表中的鏈接快速找到答案，或者您有興趣可以通過下方鏈接一一學習組合技巧。
在Excel中，合併可以分為兩種，一種是只合併內容，一種是合併內容並進行一些計算。
本教程的導航 |
|
合併內容 |
|
整合 |
|
Google表格 |
|
延期 |
備註
在本教程中，我創建了一些表格和數據以更好地解釋方法，您可以在使用以下 VBA 代碼或公式時根據需要更改參考，或者您可以直接下載示例以嘗試方法。
合併內容
這是一個工作簿，需要將 4 張紙組合在一起成為一張紙。
 |
 |
 |
 |
在 Excel 中，除了傳統的方法——複製和粘貼，您可以使用 VBA 代碼將所有工作表快速合併為一張工作表。
1。 按 F11 和 其他 啟用 Microsoft Visual Basic for Applications 窗口。
2.然後在彈出的窗口中，單擊 插入 > 模塊 插入一個新的空白模塊。
3. 將以下代碼複製並粘貼到新模塊中。
VBA：將所有工作表合併為一張
Sub CombineAllSheetsIntoOneSheet()
'UpdatebyExtendoffice
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub
在上面的代碼中，腳本“Combined”是放置組合內容的工作表的名稱，您可以根據需要將此腳本更改為其他。
4。 按 F5 鍵運行代碼，在所有sheet的前面創建了一個名為Combined的sheet，用來放置所有sheet的內容。
1.2 將所有表或命名範圍與 Query 合併（Excel 2016 或更高版本）
如果您使用 Excel 2016 或更高版本，查詢功能允許您一次將所有創建的表或命名範圍合併為一個。
首先，確保範圍已經創建為表或命名範圍，關於創建表和命名範圍，請參考 如何在Excel中將範圍轉換為表格，反之亦然 和 在公式中定義和使用名稱.
1. 打開要合併所有工作表的工作簿，單擊 數據 > 新查詢 > 從其他來源 > 空白查詢.
2.在彈出的 查詢編輯器 窗口，轉到公式欄，在其中鍵入以下公式。
=Excel.CurrentWorkbook()
媒體推薦 Enter 鍵，當前工作簿中的所有表都已列出。
3. 點擊旁邊的展開按鈕 內容 並檢查 擴大 選項和 選擇所有列 複選框。
4。 點擊 OK. 所有的表都一一列出。
您可以右鍵單擊列標題以對所選列進行其他操作。
5。 然後點擊 文件 > 關閉並加載到….
6。 在裡面 加載到 對話框，檢查 枱燈 選項，然後選擇需要加載組合表的位置 選擇數據加載位置 部分，點擊 加載.
現在創建一個新工作表來放置所有合併的表格。
如果以上方法不能滿足您，您可以嘗試一個有用且方便的工具， Excel的Kutools。 其 結合 功能強大，不僅可以將所有工作表合併為一張工作表，還可以完成高級合併工作，例如將工作表合併為一個工作簿、合併同名工作表、僅合併選定的工作表、跨文件合併工作表等。
1.啟用要合併其工作表的工作簿，單擊 Kutools 加 > 結合. 彈出對話框提示密碼的一些注意事項，如果您要使用的工作簿沒有涉及密碼，只需單擊 OK 以繼續。
2。 在裡面 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將工作簿中的多個工作表合併為一個工作表 選項，點擊 下一頁 按鈕。
3。 在裡面 步驟2 3的 窗口，默認情況下，當前工作簿已被列出並簽入 工作簿清單 窗格，並且當前工作簿的所有工作表都已在 工作表清單 窗格中單擊 下一頁 以繼續。
注意：如果您打開了多個工作簿，所有打開的工作簿都列在工作簿列表中，請只勾選您要使用的工作簿。
4.最後一步，根據需要選擇組合方式，可以選擇 逐行合併 or 按列合併; 然後根據需要指定其他選項。 點擊 完 按鈕。
5. 彈出一個對話框讓你選擇一個文件夾來放置合併的工作簿，你可以在 文件名 欄，點擊 節省 完成。
6. 現在所有的工作表已經組合在一起，彈出一個對話框詢問你是否將設置保存為場景，點擊 是 or 沒有 隨你便。
一個新的工作簿彈出，其中列出了合併結果，單擊輸出文件鏈接以檢查合併表。
逐行合併
按列合併
1.41 使用方便的工具將選定的工作表合併為一張工作表
如果只想將工作簿中的部分工作表合併為一張工作表，Excel 中沒有內置功能可以實現。 但該 結合 的特點 Excel的Kutools 可以做到。
1.啟用您使用的工作簿並單擊 Kutools 加 > 結合 > OK 以啟用合併嚮導。
2。 在裡面 步驟1 3的 窗口，檢查 將工作簿中的多個工作表合併為一個工作表 選項，點擊 下一頁 按鈕。
3. 在 Step 2 of 3 窗口中，默認情況下，當前工作簿已在工作簿列表窗格中列出並選中，並且當前工作簿的所有工作表已在工作表列表窗格中列出並選中，取消選中未選中的工作表不需要合併，點擊下一步繼續。
4. 在最後一步中，根據需要指定選項。 點擊 完 按鈕。
5. 彈出一個對話框讓你選擇一個文件夾來放置合併的工作簿，你可以在 文件名 欄，點擊 節省 完成。
6. 現在只有勾選的表單被組合在一起，彈出一個對話框詢問您是否將設置保存為場景，點擊 是 or 沒有 隨你便。
1.42 使用方便的工具將多個工作簿中的工作表合併為一張工作表
例如，您想將 book1、book2 和 book3 的所有工作表合併為一張工作表，如下圖所示， 結合 的特點 Excel的Kutools 也可以幫助您。
後 免費安裝 Kutools for Excel，請執行以下操作：
1. 啟用您使用的工作簿並單擊 Kutools 加 > 結合 > OK 使之成為可能 結合 嚮導。
2。 在裡面 步驟1 3的 窗口，檢查 將工作簿中的多個工作表合併為一個工作表 選項，點擊 下一頁 按鈕。
3。 在裡面 步驟2 3的 窗口，所有打開的工作簿都已在 工作簿清單 窗格中，並且所有打開的工作簿表都已在 工作表清單 窗格中單擊 下一頁 以繼續。
提示：如果要添加要合併的工作簿，請單擊“添加”按鈕選擇添加工作簿的路徑。
4. 在最後一步，根據需要選擇選項。 點擊 完 按鈕。
5. 彈出一個對話框讓你選擇一個文件夾來放置合併的工作簿，你可以在 文件名 欄，點擊 節省 完成。
6.現在打開的工作簿中的所有工作表都已組合在一起，彈出一個對話框詢問您是否將設置保存為場景，單擊 是 or 沒有 隨你便。
打開您保存的合併工作簿，跨工作簿的工作表已合併為一張工作表。
這裡需要將三個工作簿合併為一個工作簿。
 |
 |
 |
對於僅跨幾個工作簿組合工作表，Excel 的 移動或複制 命令可以幫你一個忙。
1. 打開要合併的前兩個工作簿，激活第一個工作簿，選擇要移動的工作表，然後右鍵單擊啟用上下文菜單，然後單擊 移動或複制.
保養竅門
1）右鍵單擊一個選項卡並選擇 選擇所有工作表 如果要移動所有工作表，請首先從上下文菜單中使用 移動或複制 命令。
2) 持有 按Ctrl 鍵選擇多個不相鄰的工作表。
3）選擇第一張紙並按住 轉移 鍵選擇最後一張紙以選擇多個相鄰的紙頁。
2。 在裡面 移動或複制 對話框中 預訂 下拉列表，選擇要將工作表移動到的工作簿，在這裡選擇 Jan，然後指定要放置工作表的位置 前表 部分，點擊 OK.
注意：
1）你最好檢查一下 建立副本, 否則原工作簿移動後會丟失工作表。
2) 如果要將所有工作簿放入新工作簿，請選擇 （新書） in 預訂 下拉列表。
工作表如何移動到主工作簿。
重複上述步驟將所有工作簿移到一個。
2.2 用VBA代碼將多個工作簿（在一個文件夾中）合併成一個工作簿
要將許多工作簿合併到一個文件夾中，您可以使用 VBA 代碼。
1.啟用要將所有工作簿合併到的工作簿，然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2. 在彈出的窗口中，單擊 插入 > 模塊 插入一個新的空白模塊。
3. 將下面的 VBA 代碼複製並粘貼到新模塊中。
VBA：將多個工作簿合併到當前工作簿中
Sub GetSheets()
'Updated by Extendoffice
Path = "C:\Users\AddinTestWin10\Desktop\combine sheets\combine sheets into one workbook\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub 
備註
在 VBA 代碼中，腳本“C:\Users\AddinTestWin10\Desktop\combine sheet\combine sheet into one workbook\"是您要合併的工作簿所在的文件夾路徑，請根據需要進行更改。
如果要合併的工作簿在不同的文件夾中，請先將它們複製到一個文件夾中。
4。 按 F5 鍵運行代碼，則所有工作簿都已復製到當前工作簿的末尾。
小提示: 所有復制的工作表都將使用其原始名稱，如果您想使用工作簿名稱作為前綴，請使用以下代碼：
Sub MergeWorkbooks()
'Updated by Extendoffice
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\AddinTestWin10\Desktop\combine sheets\combine sheets into one workbook\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub 
2.3 使用方便的工具將多個工作簿（跨多個文件夾）合併為一個工作簿
有時，您可能希望將不同文件夾中的所有工作簿合併為一個工作簿。 例如，要將文件夾 2020 和 2021 中的所有工作簿合併為一個工作簿，Excel 中沒有直接的方法可以處理它。
然而，本 結合 的特點 Excel的Kutools 提供將多個文件夾中的工作簿合併為一個的選項。
後 免費安裝 Kutools for Excel，請執行以下操作：
1.啟用Excel，單擊 Kutools 加 > 結合, 彈出一個對話框提醒你一些密碼注意事項，如果你要使用的工作簿沒有涉及密碼，只需點擊 OK 以繼續。
2。 在裡面 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將工作簿中的多個工作表合併到一個工作簿中 選項，點擊 下一頁 按鈕。
3。 在裡面 步驟2 3的 窗口，單擊旁邊的箭頭 加入 按鈕顯示下拉菜單，點擊 夾.
4.然後在 選擇“文件夾” 對話框，選擇一個你想使用的文件夾，點擊 選擇“文件夾” 將其添加到 工作簿清單 部分。
5. 重複以上步驟添加所有文件夾並列出文件夾中的所有工作簿 工作簿清單點擊此處成為Trail Hunter 下一頁.
6. 在最後一步，根據需要選擇選項。 點擊 完 按鈕。
7. 彈出一個對話框讓你選擇一個文件夾來放置合併的工作簿，你可以在 文件名 欄，點擊 節省 完成。
8. 現在所有的工作表已經組合在一起，彈出一個對話框詢問你是否將設置保存為場景，點擊 是 or 沒有 隨你便。
彈出一個新的工作簿，其中列出了合併結果，單擊“輸出文件”鏈接以檢查合併表。
合併結果
注意：在合併工作簿中，第一個名為 Kutools for Excel 的工作表列出了有關原始工作表和最終合併工作表的一些信息，如果您不需要可以將其刪除。
如果您只想將部分工作簿合併為一個工作簿，而不是每個工作簿的所有工作表，您可以嘗試以下方法。
3.1 使用VBA代碼將工作簿中的特定工作表（同一文件夾中的所有工作簿）合併到一個工作簿中
1. 打開工作簿找到合併的工作表，然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2. 在彈出的窗口中，單擊 插入 > 模塊 插入一個新的空白模塊。
3. 將下面的 VBA 代碼複製並粘貼到新模塊中。
VBA：將多個工作簿的特定工作表合併到當前工作簿中
Sub MergeSheets2()
'Updated by Extendoffice
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = "C:\Users\AddinTestWin10\Desktop\combine sheets\combine specific sheets from multiple workbooks\"
xStrName = "A,B"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub 
備註
1）在VBA代碼中，腳本“ C:\Users\AddinTestWin10\Desktop\combine sheet\combine specific sheet from multiple workbooks\"是您要合併的工作簿所在的路徑，請根據需要進行更改。
2）在VBA代碼中，腳本“A，B" 是我想從工作簿中組合在一起的特定工作表的工作表名稱，根據需要更改它們，使用逗號分隔每個工作表名稱。
3) 如果要合併的工作簿在不同的文件夾中，請先將它們複製到一個文件夾中。
4。 按 F5 鍵運行代碼，那麼只有特定的工作表被複製到當前工作簿的末尾。
3.2 使用方便的工具組合來自多個工作簿（跨多個文件夾）的特定工作表
如果您要合併的工作簿在許多不同的文件夾中，您可以嘗試 Excel的Kutools“ 結合 功能。
後 免費安裝 Kutools for Excel，請執行以下操作：
1.啟用Excel，單擊 Kutools 加 > 結合, 彈出對話框提醒您一些密碼注意事項，如果您要使用的工作簿不涉及密碼，只需單擊 OK 以繼續。
2。 在裡面 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將工作簿中的多個工作表合併到一個工作簿中 選項，點擊 下一頁 按鈕。
3。 在裡面 步驟2 3的 窗口，單擊旁邊的箭頭 加入 按鈕顯示下拉菜單，點擊 夾.
4.然後在 選擇“文件夾” 對話框，選擇一個你想使用的文件夾，點擊 選擇“文件夾” 將其添加到 工作簿清單 部分。
5. 重複以上步驟添加所有文件夾並列出文件夾中的所有工作簿 工作簿清單.
6.然後留在 步驟2 3的 窗口中，選擇一個工作簿 工作簿清單, 並且只檢查您要使用的工作表 工作表清單，然後點擊 同一張紙 按鈕。 現在所有相同名稱的工作簿在 工作簿清單 已被檢查。 點擊 下一頁 以繼續。
7. 在最後一步，根據需要選擇選項。 點擊 完 按鈕。
8. 彈出一個對話框讓你選擇一個文件夾來放置合併的工作簿，你可以在 文件名 欄，點擊 節省 完成
9. 現在具體的工作表已經組合在一起，彈出一個對話框詢問你是否將設置保存為場景，點擊 是 or 沒有 隨你便。
彈出一個新的工作簿，其中列出了合併結果，單擊“輸出文件”鏈接以檢查合併表。
合併結果
注意：在合併工作簿中，第一個名為 Kutools for Excel 的工作表列出了有關原始工作表和最終合併工作表的一些信息，如果您不需要可以將其刪除。
如下圖所示，兩張表中有兩個表，您想根據Excel中的一個關鍵列將這兩個表合併為一個。
| Table1 | Table2 |
 |
 |
| 組合表 |
 |
4.1 使用Query基於一鍵列合併兩張表（Excel 2016及以上版本）
詢問 Excel 2016及以後版本的功能非常強大，它支持基於一個鍵列組合兩個表。
在使用之前 詢問 功能，請確保您要組合的範圍已創建為表格。
1. 單擊第一個表格的任意單元格，單擊 數據 > 從表格 ，在 獲取和轉換 組。
2。 在裡面 查詢編輯器 對話框中單擊 文件 > 關閉並加載 至 命令。 看截圖：
3.然後在彈出的 加載到 對話框，檢查 僅創建連接 選項。 點擊 加載.
現在您可以看到 工作簿查詢 窗格顯示，並且該表已作為鏈接列在窗格中。
重複以上步驟將第二個表添加到 工作簿查詢 窗格。
4。 然後點擊 數據 > 新查詢 > 合併查詢 > 合併.
5。 在裡面 合併 窗口，分別在兩個下拉列表中選擇要合併的兩個表。 底部的表格將合併到上面的表格中。
6. 單擊要基於的鍵列組合兩個表，單擊 OK.
7。 “ Merge1 - 查詢編輯器 彈出窗口，點擊旁邊的展開按鈕 新欄目，然後檢查除關鍵列之外的所有列，取消選中 使用原始列名稱作為前綴 複選框，單擊 OK.
現在已經根據指定的鍵列將兩個表合併為一個。
8。 點擊 文件 > 關閉並加載到在 加載到 對話框，檢查 枱燈 選項並指定要加載的位置。 點擊 加載.
現在這兩個表已經基於一個鍵列合併了。
如果您只想將一列或兩列從一張工作表移動到另一張工作表並根據關鍵列進行定位，Excel 功能可以幫助您。
例如，將完整數據從工作表 2 移至工作表 1，並根據 A 列定位數據。
| Sheet1 | Sheet2 |
 |
 |
4.21 用VLOOKUP按列合併兩張表
1. 將以下公式複制並粘貼到表 1 中的表格旁邊：
=VLOOKUP(A2,工作表2!$A$2:$B$5,2,FALSE)
說明：
A2：第一個查找值（鍵列）；
Sheet2!$A$2:$B$5：表格數組，表格包含兩列或更多列，其中查找值列和結果值列所在的列；
2：列索引，table_array 的特定列號（它是一個整數），您將從中返回匹配的值。
2。 按 Enter 獲得第一個結果的關鍵。
3. 然後向下拖動自動填充手柄以填充所有數據。
4. 保持公式單元格高亮顯示，點擊 首頁
選項卡，然後根據需要在 聯繫電話 組。
4.22 用一列將兩張表合併成一個公式結合MATCH和INDEX函數
1. 將以下公式複制並粘貼到表 1 中的表格旁邊：
=INDEX(Sheet2!$B$2:$B$5,MATCH(Sheet1!A2,Sheet2!$A$2:$A$5,0))
說明：
Sheet2!$B$2:$B$5：要查找的匹配值的列；
Sheet1!A2：第一個查找值（在key列中）；
Sheet2!$A$2:$A$5：您要根據的鍵列組合兩個工作表。
2。 按 Enter 獲得第一個結果的關鍵。
3. 然後向下拖動自動填充手柄以填充所有數據。
4. 保持公式單元格高亮顯示，點擊 首頁
選項卡，然後根據需要在 聯繫電話 組。
除了組合功能，還有一個強大的功能—— 表格合併 in Excel的Kutools，可以基於一個關鍵列快速輕鬆地合併兩個工作表。
後 免費安裝 Kutools for Excel，請執行以下操作：
1。 點擊 Kutools 加 >表格合併.
2.在T能力合併 - 第 1 步，共 5 步 窗口，選擇表格範圍到 選擇主表 和 選擇查詢表 部分單獨，單擊 下一頁.
3。 在裡面 步驟2 5的 窗口，勾選你想要組合的關鍵列，點擊 下一頁.
4。 在裡面 步驟3 5的 窗口，可以根據查找表勾選要更新數據的列，如果不需要更新數據，直接點擊 下一頁.
5。 在裡面 步驟4 5的 窗口，在這裡勾選要合併到主表的列，然後單擊 下一頁.
6.最後一步，根據需要指定選項，點擊 完.
此功能支持將不同工作簿中的兩個工作表合併。
假設 sheet1 和 sheet2 分別有兩個表，現在，根據列 Project 和列 Start_Date 將列 End_Dates 中的數據從 sheet2 移動到 sheet1，如下圖所示：
| Sheet1 | Sheet2 |
 |
 |
| 組合表 |
 |
在 Excel 中，內置功能不支持此操作，但 表格合併 of Excel的Kutools 可以處理它。
後 免費安裝 Kutools for Excel，請執行以下操作：
1。 點擊 Kutools 加 > 表格合併.
2。 在裡面 表格合併-第1步，共5步 窗口，選擇表格範圍到 選擇主表 和 選擇查找表e 部分單獨，單擊 下一頁.
3。 在裡面 步驟2 5的 窗口，勾選你想要組合的兩個關鍵列，點擊 下一頁.
注意：查找表中的相關列會自動匹配，您可以單擊查找表列中的列名稱根據需要更改它們。
4。 在裡面 步驟3 5的 窗口，可以根據查找表勾選要更新數據的列，如果不需要更新數據，直接點擊 下一頁.
5。 在裡面 步驟4 5的 窗口，在這裡檢查要合併到主表的列，然後單擊 下一頁.
6.最後一步，根據需要指定選項，點擊 完.
然後您要添加的列已添加到主表的末尾。
此功能支持將不同工作簿中的兩個工作表合併。
要組合多個具有相同標題的工作表，如下圖所示：
 |
 |
 |
 |
| 組合表 |
 |
有一個 VBA 代碼可以將工作簿的所有工作表與相同的標題組合在一起。
1. 啟用要合併具有相同標題的工作表的工作簿，然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2. 在彈出的窗口中，單擊 插入 > 模塊 插入一個新的空白模塊。
3. 將下面的 VBA 代碼複製並粘貼到新模塊中。
VBA：合併具有相同標題的工作表
Sub Combine()
'Update by Extendoffice
Dim i As Integer
Dim xTCount As Variant
Dim xWs As Worksheet
On Error Resume Next
LInput:
xTCount = Application.InputBox("The number of title rows", "", "1")
If TypeName(xTCount) = "Boolean" Then Exit Sub
If Not IsNumeric(xTCount) Then
MsgBox "Only can enter number", , "Kutools for Excel"
GoTo LInput
End If
Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
xWs.Name = "Combined"
Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
For i = 2 To Worksheets.Count
Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
Next
End Sub 
4。 按 F5 鍵運行代碼，彈出一個對話框詢問您標題行的數量，在文本框中輸入數字。 點擊 OK.
現在，此工作簿中的所有工作表都已合併到名為“組合”的新工作表中。
結合 的特點 Excel的Kutools 也可以處理這個工作，它支持跨工作簿合併工作表。
後 免費安裝 Kutools for Excel，請執行以下操作：
1.啟用要合併具有相同標題的工作表的工作簿，單擊 Kutools 加 > 結合.
2. 彈出提示密碼的對話框，如果您使用的工作簿不涉及密碼，請點擊 OK 接著說。 在彈出 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將工作簿中的多個工作表合併為一個工作表 選項，點擊 下一頁.
3。 在裡面 步驟2 3的 窗口，列出並簽入所有工作表 工作表清單 部分，點擊 下一頁 繼續。
提示：
1）如果您只想合併一些工作表，只需選中您需要的工作表名稱，而不要選中其他工作表。
2) 如果要添加更多要合併的工作簿，請單擊 加入 將文件或文件夾添加到 工作簿清單 部分。
4。 在裡面 步驟3 3的，檢查 逐行合併 選項，然後在 標題行數 文本框，根據需要指定其他設置。 點擊 完.
5. 選擇一個文件夾並在文件夾中為新工作簿命名 指定組合工作簿的文件名和位置 對話框中單擊 節省.
6. 彈出對話框詢問是否將設置保存為場景，點擊 是 or 沒有 因為你需要。 彈出工作簿列出原工作簿和新工作簿鏈接，點擊新建工作簿路徑鏈接打開查看。
整合
例如，有三個具有相同行標題和列標題的工作表，現在您希望將它們與相同的標題組合起來，並將數據相加，如下面的屏幕截圖所示。
 |
 |
 |
| 結果 |
 |
在Excel中， 整合 功能支持組合工作表並進行計算。
1.啟用要合併其工作表的工作簿，然後選擇要放置合併數據的單元格，單擊 數據 > 整合.
2。 在裡面 整合 對話框，進行以下設置：
1）在 功能 下拉菜單，選擇合併表格後要進行的計算。
2）點擊旁邊的選擇圖標 瀏覽 按鈕選擇要組合的範圍並單擊 加入 到 所有參考 部分。
重複此步驟將需要合併的所有範圍添加到 所有參考 部分。
3）在 在中使用標籤 部分，檢查 第一排 和 左欄 如果範圍同時具有行標題和列標題，則選中復選框。
4) 如果您希望合併的內容隨著源數據的變化而變化，請檢查 創建到源數據的鏈接 複選框。
3。 點擊 OK. 這些範圍已根據標題進行組合和匯總。
注意：如果要合併的範圍在其他工作簿中，請單擊“合併”對話框中的“瀏覽”以選擇工作簿，然後在文本框中鍵入工作表名稱和範圍，然後單擊“添加”以將範圍添加到“所有引用”部分。
結合 的特點 Excel的Kutools 支持在多個工作簿中合併工作表並將計算合併到一張工作表中。
後 免費安裝 Kutools for Excel，請執行以下操作：
1. 啟用要合併的工作簿，單擊 Kutools 加 > 結合.
2. 彈出提示密碼的對話框，如果您使用的工作簿不涉及密碼，請點擊 OK 接著說。 在彈出 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將多個工作簿中的值合併併計算到一個工作表中 選項，點擊 下一頁.
3。 在裡面 步驟2 3的 窗口，列出並簽入所有打開的工作簿表 工作表清單 部分，點擊 下一頁 繼續。
提示：如果您只想合併一些工作表，只需選中您需要的工作表名稱，而不要選中其他工作表。 如果要添加更多要合併的工作簿，請單擊添加將文件或文件夾添加到工作簿列表部分。
4。 在裡面 步驟3 3的，指定計算，你需要的標籤。 點擊 完.
5. 選擇一個文件夾並在文件夾中為新工作簿命名 指定組合工作簿的文件名和位置 對話框中單擊 節省.
6. 彈出對話框詢問是否將設置保存為場景，點擊 是 or 沒有 因為你需要。 彈出工作簿列出原工作簿和新工作簿鏈接，點擊新建工作簿路徑鏈接打開查看。
如果您的數據採用如下屏幕截圖所示的簡單結構，您可以直接將工作表組合成數據透視表。
 |
 |
 |
1. 啟用您將使用的工作簿，單擊 自定義快速訪問工具欄 > 更多命令.
2.在彈出 Excel選項 窗口，選擇 所有的命令 來自 從中選擇命令 部分，然後拖動滾動條選擇 數據透視表和數據透視圖嚮導.
3。 點擊 加入 添加 數據透視表和數據透視圖嚮導 到 自定義快速訪問工具欄點擊此處成為Trail Hunter OK.
4。 點擊 數據透視表和數據透視圖嚮導 命令從工具欄，並在 步驟1 3的，檢查 多個合併範圍和數據透視表 選項，單擊 下一頁.
5。 在裡面 第2a步，共3步, 勾選我將創建頁面字段選項，點擊 下一頁.
6。 在裡面 第2b步，共3步，單擊選擇圖標選擇要合併的範圍，單擊 加入 將其添加到 所有範圍 部分，重複此步驟以添加用於組合的所有範圍。 檢查 0 在 您想要多少個頁面字段。 點擊 下一頁.
7. 選擇要在其中創建數據透視表的位置 步驟3 3的點擊此處成為Trail Hunter 完.
現在已經創建了一個數據透視表，在中指定設置 數據透視表字段 所需的窗格。
注意：如果數據的結構比較複雜，我認為請將表格與上面列出的通用方法結合起來，然後將結果表格轉換為數據透視表。
Google表格
假設需要將三個谷歌表合併為一個，如下圖所示：
 |
 |
 |
1.1 通過過濾功能將google sheet合併成一張sheet
在要放置組合數據的工作表中，選擇一個單元格，鍵入以下公式：
=({filter(A!A2:B, len(A!A2:A)); filter(B!A2:B, len(B!A2:A)); filter('C'!A2:B, len ('C'!A2:A)) })
然後表 A、B 和 C 中的數據已被複製。
在公式：
A，B，C 是工作表名稱， A2：B 是每個工作表中的數據范圍， A2：A 是每個數據范圍的第一列。
1.2 通過IMPORTRANGE功能將google sheet合併為一張sheet
這個公式經常用於在谷歌表中組合兩個範圍。
選擇第一個數據范圍下的單元格，鍵入以下公式：
=IMPORTRANGE("https://docs.google.com/spreadsheets/d/13K4vuZukmS4-x0qJs0EAXQkneIdNqelruDBF5ff5xNQ/edit","B!A2:B4")
然後表B中的數據已復製到下面。
在公式，
https://docs.google.com/spreadsheets/d/13K4vuZukmS4-x0qJs0EAXQkneIdNqelruDBF5ff5xNQ/edit
是工作表位置，您可以在網址欄中找到它。
B!A2:B4 是您要復製到第一個區域的工作表 B 中的單元格區域。
注意：如果放置公式的單元格之前被編輯過，公式將返回#REF！
如果您想在 Google Sheet 中合併來自多個工作簿的工作表，沒有像 Excel 那樣快捷的方法。
要將工作簿中的谷歌工作表合併到一個工作簿中，您可以使用 複製到 右鍵菜單命令。
右鍵單擊要使用的工作表，單擊 複製到 > 新建電子表格 or 現有電子表格.
如果您選擇 新建電子表格, 彈出對話框提醒您工作表已復制，單擊 OK. 現在當前工作表已復製到新工作簿。 你可以點擊 打開電子表格 去檢查。
如果您選擇 現有電子表格是， 選擇一個電子表格將此工作表複製到 對話框彈出。
1) 選擇現有電子表格的位置；
2）選擇要將工作表複製到的工作簿 檔;
3) 或者您也可以直接在 或粘貼 網址在這裡 酒吧。
4）點擊 選擇.
如果將工作表複製到新的電子表格中，則新工作簿中的工作表名稱與原始名稱相同，如果將工作表複製到現有電子表格中，則合併工作簿中的工作表名稱將添加前綴 Copy of .
延期
假設有兩張有重複的工作表，我們需要合併數據並刪除重複，如下圖所示：
 |
 |
| 一般結果 | 刪除重複項 |
 |
 |
在Excel中， 刪除重複項 功能可幫助您快速刪除重複數據。
使用上述方法合併表格後，然後選擇合併的數據，單擊 數據 > 刪除重複項.
在 刪除重複項 對話框，選擇要從中刪除重複項的列，您可以檢查 我的數據有標題 要忽略標題，請單擊 OK.
然後刪除了重複的行。
如果只需要合併兩個範圍並刪除重複項，則 表格合併 of Excel的Kutools 可以在組合時直接刪除重複項。
後 免費安裝 Kutools for Excel，請執行以下操作：
1. 啟用包含要合併的數據的工作簿，單擊 Kutools 加 > 表格合併.
2.在T能力合併 - 第 1 步，共 5 步 窗口，選擇要合併的兩個範圍，如果表格有兩個標題，請檢查 主表有標題 和 查找表有標題 複選框，點擊 下一頁.
3。 在裡面 步驟2 5的 窗口，選中要基於的範圍組合的關鍵列，單擊 下一頁.
4。 在裡面 步驟3 5的 窗口，您可以根據查找表檢查要更新數據的列，單擊 下一頁 進入最後一步。
提示：如果查找表中有新列需要添加到主表中，則會有一個步驟 4 of 5 的窗口用於添加列。
5。 在裡面 步驟5 5的 窗口中 添加選項 部分，檢查 將不匹配的行添加到主表的末尾 複選框，在 更新選項 部分，檢查 僅在查找表中有數據時更新單元格 複選框。 點擊 完.
然後將兩張表合併成主表，沒有重複。
假設有多個工作簿具有相同名稱的工作表，例如工作表1，工作表2，現在將所有名為工作表的工作表合併為一張工作表，將所有名為工作表的工作表合併為一張工作表，如下圖所示，您可以使用 Excel的Kutools“ 結合 功能來快速處理這項工作。
 |
 |
 |
 |
 |
 |
後 免費安裝 Kutools for Excel，請執行以下操作：
1.啟用要合併的工作簿，點擊Kutools 加 > 結合.
2. 彈出提示密碼的對話框，如果您使用的工作簿不涉及密碼，請點擊 OK 接著說。 在彈出 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將所有相同名稱的工作表合併到一個工作表中 選項，點擊 下一頁.
3。 在裡面 步驟2 3的 窗口，列出並簽入所有打開的工作簿表 工作表清單 部分，點擊 下一頁 繼續。
提示：
如果您只想合併一些工作表，只需選中您需要的工作表名稱，而不要選中其他工作表。
如果要添加更多要合併的工作簿，請單擊 加入 將文件或文件夾添加到 工作簿清單 部分。
4。 在裡面 步驟3 3的，根據需要指定設置。 點擊 完.
5. 選擇一個文件夾並在文件夾中為新工作簿命名 指定組合工作簿的文件名和位置 對話框中單擊 節省.
6. 彈出對話框詢問是否將設置保存為場景，點擊 是 or 沒有 因為你需要。 彈出工作簿列出原工作簿和新工作簿鏈接，點擊新建工作簿路徑鏈接打開查看。
逐行合併
按列合併
如果您想將跨工作表的相同範圍合併為一張工作表，例如，僅將工作簿 A 和工作簿 B 的範圍 A1:B5 合併為一張工作表， Kutools for Excel 的合併功能將是一個不錯的選擇。
| A | B | 組合結果 |
 |
 |
 |
1. 啟用您將使用的工作簿，單擊 Kutools 加 > 結合.
2. 彈出提示密碼的對話框，如果您使用的工作簿不涉及密碼，請點擊 OK 接著說。 在彈出 合併工作表 - 第 1 步（共 3 步） 窗口，檢查 將工作簿中的多個工作表合併為一個工作表 選項，點擊 下一頁.
3。 在裡面 步驟2 3的 窗口，列出並簽入所有打開的工作簿表 工作表清單 部分，單擊選擇圖標 工作表清單，然後選擇要使用的範圍。 然後點擊 相同範圍 按鈕將所有工作表的範圍設置為 A1:B5。 點擊 下一頁.
提示：
1）如果您只想合併一些工作表，只需選中您需要的工作表名稱，而不要選中其他工作表。
2) 如果要添加更多要合併的工作簿，請單擊 加入 將文件或文件夾添加到 工作簿清單 部分。
4。 在裡面 步驟3 3的，根據需要指定設置。 點擊 完.
5. 選擇一個文件夾並在“指定合併工作簿的文件名和位置”對話框中為新工作簿命名，單擊 節省.
6. 彈出對話框詢問是否將設置保存為場景，點擊 是 or 沒有 因為你需要。 彈出工作簿列出原工作簿和新工作簿鏈接，點擊新建工作簿路徑鏈接打開查看。
您也可能對。。。有興趣 |
|
將多個 Csv 文件合併/導入到多個工作表中 合併單元格並在 Excel 中保留單元格格式 在Excel中合併多個單元格的內容而不會丟失數據 將日期和時間合併到Excel中的一個單元格中 |
- 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
- 合併單元格/行/列 和保存數據； 拆分單元格內容； 合併重複的行和總和/平均值...防止細胞重複； 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
- 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
- 收藏并快速插入公式，範圍，圖表和圖片； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
- 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
- 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
- 數據透視表分組依據 週號，週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
