合併多個工作簿中同名的工作表到一個工作表

Author Xiaoyang Last modified 2025-08-23

將多個 Excel 工作簿中的數據合併到單一工作表是數據分析中的一個常見需求，特別是在處理合併報表或從不同來源進行數據聚合時。當你需要合併不同工作簿中具有相同名稱的工作表時，這可能會變得特別具有挑戰性。本教程將引導你通過兩種有效的方法來簡化這一過程：使用 VBA 程式碼（適用於喜歡動手操作和可編程方法的用戶），以及利用 Kutools for Excel（為尋求更友好、自動化解決方案的用戶提供）來完成此任務。

使用 VBA 程式碼合併同名工作表到一個工作表
輕鬆使用 Kutools for Excel 合併同名工作表到一個工作表

使用 VBA 程式碼合併同名工作表到一個工作表

本節提供了一段用於合併多個工作簿中同名工作表的 VBA 程式碼，請按照以下步驟操作：

按下「Alt」+「F11」打開 VBA 編輯器。

在 VBA 編輯器中，點擊「插入」>「模組」，然後在模組中輸入以下 VBA 程式碼。

VBA 程式碼：合併同名工作簿到一個工作表

Sub CombineSameNameSheetsFromMultipleWorkbooks()
'Updated by Extendoffice 2025/3/27
    Dim wsTarget As Worksheet
    Dim wbTarget As Workbook
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim strSheetName As String
    Dim fd As FileDialog
    Dim FileChosen As Integer
    Dim FileName As String
    Dim lastRow As Long

    ' Set the name of the sheets to combine
    strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet

    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    wsTarget.Name = "Combined Data"

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = True

    FileChosen = fd.Show
    If FileChosen = -1 Then
        For Each varFile In fd.SelectedItems
            Set wbSource = Workbooks.Open(varFile)
            
            On Error Resume Next
            Set wsSource = wbSource.Sheets(strSheetName)
            On Error GoTo 0
            
            If Not wsSource Is Nothing Then
                lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                
                wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                
                Set wsSource = Nothing
            End If
            wbSource.Close False
        Next varFile
    End If
    MsgBox "Data has been combined successfully!", vbInformation
End Sub

注意：在運行程式碼之前，你需要將變數「strSheetName」中的「SheetName」更改為你想合併的工作表的實際名稱。

screenshot showing SheetName in the code line

按下「F5」鍵運行程式碼。隨後會彈出一個「選擇 Excel 文件」窗口，請選擇包含你想合併的同名工作表的工作簿，然後點擊「打開」按鈕。
合併完成後，會出現一個「Microsoft Excel」對話框，確認工作表已成功合併。點擊「確定」關閉它。

現在，所選工作簿中所有同名工作表的內容都已經合併到新工作簿中的單一工作表中。

注意：此 VBA 程式碼無法合併多個同名工作表。

輕鬆使用 Kutools for Excel 合併同名工作表到一個工作表

雖然 VBA 在 Excel 中提供了強大的自動化功能，但對於沒有編程技能的用戶來說，它可能顯得複雜且令人生畏。此外，VBA 需要謹慎的安全措施，並可能帶來兼容性問題。相比之下，Kutools for Excel 提供了一個更加友好且安全的替代方案，簡化了從多個工作簿中合併工作表的過程，消除了複雜編碼的需求，讓所有 Excel 用戶都能輕鬆完成該任務。

Kutools for Excel - 包含超過 300 種 Excel 必備工具。永久免費享受 AI 功能！立即下載！

安裝 Kutools for Excel 後，選擇「Kutools Plus」>「合併」以打開「合併工作表」向導。然後按照以下方式進行配置。

在「合併工作表 – 第 1 步，共 3 步」向導中，選擇「合併多個工作簿中同名工作表的數據」選項，然後點擊「下一步」。
在「第 2 步，共 3 步」向導中，點擊「添加」按鈕以選擇包含你想合併的同名工作表的工作簿。
注意：如果工作簿保存在文件夾中，你可以點擊「添加」按鈕旁邊的下拉箭頭以展開子菜單，然後選擇「文件夾」以快速添加該文件夾中的所有 Excel 文件。
添加工作簿後，根據你的需求有兩個選擇：
- 如果你想將所選工作簿中的所有工作表合併到一個工作簿中，只需點擊「下一步」按鈕即可。所有工作表將被合併，並且同名工作表的內容將被合併到單一工作表中。
- 如果你只想合併同名的工作表，首先在「工作表列表」部分選擇一個工作表，然後點擊「相同工作表」按鈕。這將自動選擇所有添加的工作簿中同名的工作表。之後，點擊「下一步」繼續。
在向導的最後一步，你可以保留默認選項或根據需要自定義設置，然後點擊「完成」。
選擇合併工作簿的目標文件夾，根據需要輸入文件名，然後點擊「保存」按鈕以完成操作。

使用正確的工具，可以高效地合併多個工作簿中同名的工作表。無論你偏好內建方法還是高級插件，這兩種方法都能提供可靠的解決方案，適應不同的技能水平。掌握這些技術將大幅提升你的工作效率，並簡化 Excel 中的數據整合。

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

如果你想了解更多關於此功能的信息，請查看此頁面：合併多個工作簿中同名工作表的數據教學。

如何在 Excel 中將多個工作簿合併到一個工作簿？

如何合併工作表 / 工作簿到一個工作表？

如何將工作表 / 工作簿中的數據匯總到一個工作表？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多