可使用power query、vba宏或kutools插件合并多个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、点击【完成】后，所有数据将生成在新工作表中，且原始单元格格式（如颜色、边框）可选择性保留。
