Excel批量合并工作簿技巧

你是否还在为手动合并几十个Excel文件而焦头烂额？本文为你揭秘三种高效、可靠的批量合并方案：无需编程的Power Query可自动识别文件夹内所有Excel并智能堆叠数据，支持一键刷新；VBA宏则赋予你完全可控的自动化能力，轻松将多个文件首表内容追加到当前工作簿；而Kutools插件更以直观图形界面实现标题匹配、去重、来源标注和格式保留——无论你是零基础用户还是进阶办公族，总有一种方法能帮你告别重复劳动、大幅提升数据整合效率与准确性。

如果您需要将多个独立的Excel文件整合为一个统一的数据集，则可能是由于手动复制粘贴效率低下或易出错。以下是解决此问题的步骤：

一、使用Power Query合并多个工作簿

Power Query是Excel内置的数据连接与转换工具，可自动识别同一文件夹下所有Excel文件的指定工作表，并纵向堆叠合并为一张汇总表，支持动态刷新且无需编写代码。

1、在Excel中点击【数据】选项卡，选择【获取数据】→【从文件】→【从文件夹】。

2、在弹出窗口中浏览并选择存放所有待合并Excel文件的文件夹，点击【确定】。

3、在查询预览界面中，勾选【合并并加载】按钮旁的下拉箭头，选择【合并并加载到…】。

4、在【导入数据】对话框中，选择【仅创建连接】，点击【加载】。

5、右键刚生成的查询项，选择【编辑】，在Power Query编辑器中删除除【Content】列外的所有列。

6、点击【Content】列右上角的展开图标，勾选【使用第一行作为标题】，确认后关闭并上载。

二、通过VBA宏批量合并工作簿

VBA脚本可遍历指定路径下的所有.xlsx或.xls文件，读取每个文件的首个工作表（或指定名称工作表），逐个追加至当前工作簿的新工作表中，适用于需保留原始结构且不依赖外部工具的场景。

1、按Alt + F11打开VBA编辑器，点击【插入】→【模块】。

2、粘贴以下代码（注意修改Path = "C:\YourFolder\"为您的实际文件夹路径）：

Sub MergeWorkbooks()
Dim Path As String, Filename As String, wb As Workbook
Path = "C:\YourFolder\"
Filename = Dir(Path & "*.xls*")
Do While Filename ""
Set wb = Workbooks.Open(Path & Filename)
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
wb.Close False
Filename = Dir
Loop
End Sub

3、按F5运行宏，等待执行完成。

4、检查当前工作簿Sheet1中是否已按顺序追加全部源文件首表数据。

三、借助第三方插件Kutools for Excel实现一键合并

Kutools提供图形化界面操作，支持按列标题匹配、去重、添加来源标识、保留原格式等增强功能，适合不熟悉编程但需频繁执行合并任务的用户。

1、安装Kutools for Excel插件后，在Excel功能区找到【Kutools】选项卡，点击【工作表】→【合并工作表】。

2、在向导中选择【合并工作簿】模式，点击【添加文件】导入全部待合并的Excel文件。

3、设置合并逻辑：选择【根据列标题匹配数据】或【按位置匹配】，勾选【跳过每个工作表的第一行（标题）】。

4、点击【完成】后，所有数据将生成在新工作表中，且原始单元格格式（如颜色、边框）可选择性保留。

本篇关于《Excel批量合并工作簿技巧》的介绍就到此结束啦，但是学无止境，想要了解学习更多关于文章的相关知识，请关注golang学习网公众号！