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

以上就是本文的全部内容了，是否有顺利帮助你解决问题？若是能给你带来学习上的帮助，请大家多多支持golang学习网！更多关于文章的相关知识，也可关注golang学习网公众号。