使用Power Query、VBA宏、快捷键或Excel 365的VSTACK函数可高效合并多个表格。一、Power Query导入文件后通过追加查询合并数据；二、VBA宏自动将各工作表数据复制到“合并结果”表；三、手动复制时用Ctrl+A全选、Ctrl+V粘贴值至汇总表；四、Excel 365用户可用=VSTACK(Table1,Table2,Table3)公式直接堆叠表格。
如果您需要将多个Excel表格整合到一个工作表中，手动复制粘贴不仅耗时还容易出错。以下是几种高效合并多个表格的方法，帮助您大幅提升工作效率：
一、使用Power Query合并多个工作表
Power Query是Excel内置的强大数据处理工具，适用于从多个工作表或工作簿中提取并合并数据。
1、打开Excel，点击数据选项卡，选择获取数据 → 从文件 → 从工作簿。
2、选择包含多个工作表的目标Excel文件，点击导入。
3、在导航器中，找到对应的工作簿文件，选中其中一个工作表，点击转换数据进入Power Query编辑器。
4、在Power Query中，选择追加查询 → 追加查询为新查询，然后选择其他需要合并的工作表。
5、所有数据合并后，点击关闭并上载，数据将自动导入当前工作表。
二、使用VBA宏代码批量合并
VBA可以自动化执行重复性任务，适合处理大量结构相同的工作表合并。
1、按Alt + F11打开VBA编辑器，在项目中插入一个新模块。
2、输入以下代码：
Sub 合并工作表()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
Set targetSheet = ThisWorkbook.Sheets("合并结果")
If targetSheet Is Nothing Then Set targetSheet = ThisWorkbook.Sheets.Add
targetSheet.Name = "合并结果"
targetSheet.Cells.Clear
For Each ws In ThisWorkbook.Sheets
If ws.Name targetSheet.Name Then
ws.UsedRange.Copy Destination:=targetSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next ws
Application.ScreenUpdating = True
End Sub
3、运行宏，所有工作表的数据将被复制到名为“合并结果”的新工作表中。
三、通过复制粘贴结合快捷键快速操作
当表格数量较少且结构一致时，可使用快捷键加速手动合并过程。
1、新建一个工作表，命名为“汇总”。
2、依次切换至每个需合并的工作表，选中数据区域（可使用Ctrl + A全选有效数据）。
3、复制后切换至“汇总”表，定位到下一个空行的首行位置，使用Ctrl + V粘贴。
4、为避免格式混乱，粘贴时右键选择仅粘贴值选项。
四、利用Excel 365中的动态数组函数合并
Excel 365用户可借助LAMBDA和VSTACK等新函数实现公式驱动的合并。
1、确保所有待合并表格具有相同的列结构，并分别定义为表格（使用Ctrl + T）。
2、在目标单元格输入以下公式：
=VSTACK(Table1, Table2, Table3)
3、按回车后，所有表格内容将垂直堆叠显示在一个连续区域中。
4、若需合并更多表格，只需在VSTACK函数中继续添加表格名称即可。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。