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

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

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

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

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

1. 按下「Alt」+「F11」打開 VBA 編輯器。
2. 在 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」更改為你想合併的工作表的實際名稱。

   

3. 按下「F5」鍵運行程式碼。隨後會彈出一個「選擇 Excel 文件」窗口，請選擇包含你想合併的同名工作表的工作簿，然後點擊「打開」按鈕。

   

4. 合併完成後，會出現一個「Microsoft Excel」對話框，確認工作表已成功合併。點擊「確定」關閉它。

   

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

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

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

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

1. 在「合併工作表 – 第 1 步，共 3 步」向導中，選擇「合併多個工作簿中同名工作表的數據」選項，然後點擊「下一步」。

   

2. 在「第 2 步，共 3 步」向導中，點擊「添加」按鈕以選擇包含你想合併的同名工作表的工作簿。
   注意：如果工作簿保存在文件夾中，你可以點擊「添加」按鈕旁邊的下拉箭頭以展開子菜單，然後選擇「文件夾」以快速添加該文件夾中的所有 Excel 文件。

   

3. 添加工作簿後，根據你的需求有兩個選擇：
   • 如果你想將所選工作簿中的所有工作表合併到一個工作簿中，只需點擊「下一步」按鈕即可。所有工作表將被合併，並且同名工作表的內容將被合併到單一工作表中。
   • 如果你只想合併同名的工作表，首先在「工作表列表」部分選擇一個工作表，然後點擊「相同工作表」按鈕。這將自動選擇所有添加的工作簿中同名的工作表。之後，點擊「下一步」繼續。

   

4. 在向導的最後一步，你可以保留默認選項或根據需要自定義設置，然後點擊「完成」。

   

5. 選擇合併工作簿的目標文件夾，根據需要輸入文件名，然後點擊「保存」按鈕以完成操作。

   

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

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

相關文章：

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

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

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