將多個活頁簿中的同名合併工作表合併為一個

作者曉陽修改日期2025-04-09

在數據分析中，將多個 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」更改為您要合併之工作表的實際名稱。

按下「F5」執行程式碼後，將彈出「選取 Excel 檔案」視窗，請選擇包含欲合併同名工作表的活頁簿，然後點擊「開啟」按鈕。
合併完成後，將出現「Microsoft Excel」對話方塊，確認工作表已成功合併；請按一下「確定」以關閉該對話方塊。

現在，所選活頁簿中所有同名工作表的內容已合併至一個新活頁簿的單一工作表中。

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

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

雖然 VBA 在 Excel 中提供強大的自動化功能，但對於沒有程式設計經驗的使用者來說，往往過於複雜且令人卻步。此外，VBA 還需謹慎處理安全性問題，並可能面臨相容性挑戰。相比之下，「Kutools for Excel」提供更友善、更安全的替代方案，無需撰寫任何程式碼，即可輕鬆簡化從多個活頁簿合併工作表的流程，讓所有 Excel 使用者都能快速上手、順利完成任務。

Kutools for Excel－內含超過 300 項 Excel 必備工具，讓您的 Excel 作業更快速、更簡單、更高效！立即下載！

安裝 Kutools for Excel 後，選取「KUTOOLS PLUS」>「合併」以開啟「合併工作表」精靈，並依照下列步驟進行設定。

在「合併工作表 – 步驟 1 / 3」精靈中，選取「合併多個工作簿中同名工作表的數據」選項，然後點擊「下一步」。
在「步驟 2 / 3」精靈中，點擊「新增」按鈕，即可選取包含欲合併同名工作表的活頁簿。
注意：若活頁簿儲存在資料夾中，可點擊「新增」按鈕旁的下拉箭頭展開子選單，再選擇「資料夾」，便能快速新增該資料夾內的所有 Excel 檔案。
新增活頁簿後，可依需求選擇下列兩種選項：
- 若要將所選活頁簿中的所有工作表合併至單一活頁簿，只需點擊「下一步」按鈕，即可自動完成合併作業；同名工作表的內容也會整合至同一張工作表中。
- 若只需合併同名工作表，請先在「工作表列表」區段中選取一張工作表，再點擊「同名工作表」按鈕。系統將自動選取所有已新增活頁簿中與之同名的工作表。完成後，點擊「下一步」繼續。
在精靈的最後一步，您可以保留預設選項，或根據需求自訂設定，然後按一下「完成」。
為合併後的活頁簿選取目標資料夾，輸入所需的檔案名稱，然後點擊「儲存」按鈕即可完成作業。

只要善用合適的工具，就能高效整合多個活頁簿中的同名工作表。無論您偏好使用內建功能或進階增益集，這兩種方式皆能提供可靠解法，滿足不同技能程度的需求。掌握這些技巧，將大幅提升您的工作效率，並簡化 Excel 中的資料整合流程。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

若想進一步了解此功能，請參閱此頁面：合併多個工作簿中同名工作表的數據教學。

如何在 Excel 中將多個活頁簿合併成單一活頁簿？

如何將多個工作表或活頁簿合併成單一工作表？

如何將工作表或活頁簿中的資料彙總到單一工作表？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多