将多个工作簿中的同名汇总工作表合并为一个

将多个 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 中将多个工作簿合并到一个工作簿中？

如何将多个工作表或工作簿合并到一个工作表中？

如何将工作表或工作簿中的数据汇总到同一张工作表中？

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……