可采用四种方法批量合并Excel工作簿:一、Power Query自动识别并堆叠合并;二、VBA宏遍历复制首表数据;三、Kutools图形化一键合并;四、CMD命令拼接CSV后导入。

如果您需要将多个Excel工作簿整合为一个统一的工作表,以提升数据汇总与分析效率,则可能是由于手动复制粘贴耗时且易出错。以下是实现此目标的多种批量操作方法:
一、使用Power Query合并多个Excel文件
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
3、按F5运行宏,等待执行完成。
4、检查当前工作簿Sheet1中是否已按顺序追加全部源文件首表数据。
三、借助第三方工具(如Kutools for Excel)一键合并
Kutools提供图形化界面操作,支持按工作表名称匹配合并、跳过空文件、添加来源标识等增强功能,适合不熟悉代码或Power Query的用户。
1、确保已安装Kutools for Excel插件,重启Excel后可见【Kutools】选项卡。
2、点击【Kutools】→【合并】→【合并工作簿】。
3、在向导界面中,点击【添加文件】或【添加文件夹】,选中所有待处理Excel文件。
4、勾选【合并所有工作表】或【仅合并同名工作表】,根据需求选择【添加源文件名/工作表名为前缀】。
5、点击【下一步】,设置目标工作簿保存位置及命名规则,最后点击【完成】开始批量处理。
四、使用命令提示符+Excel公式辅助合并(仅适用于CSV格式)
当所有源文件均为CSV格式时,可通过系统级命令快速拼接文本内容,再导入Excel,规避Excel文件解析开销,适合超大批量小文件场景。
1、将所有CSV文件放入同一文件夹,例如C:\CSVData\。
2、按Win + R输入cmd,进入该目录:cd /d C:\CSVData。
3、执行合并命令:copy /b *.csv merged.csv。
4、双击生成的merged.csv,用Excel打开,检查首行标题是否重复;若重复,手动删除中间冗余标题行。
5、另存为.xlsx格式,完成格式转换。








