使用Power Query可自动合并多工作表：通过“数据”选项卡导入工作簿，选择所有工作表，在编辑器中确认结构一致并添加来源标识，最后上载至新表；2. VBA宏实现高效批量合并：按Alt+F11插入模块，粘贴代码创建“合并数据+时间戳”新表，循环复制各表内容避免重名错位；3. 少量工作表可用手动复制粘贴：新建“合并结果”表，依次复制源数据区域并跳过后续标题行，保留来源标记便于追溯。
如果您需要将一个Excel文件中的多个工作表内容整合到单个工作表中以便统一分析或处理，则可以通过多种方式实现数据的合并。手动复制粘贴效率低下且容易出错，因此推荐使用更高效的方法来完成此任务。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用Power Query合并工作表
Power Query是Excel内置的强大数据获取与转换工具，能够自动识别并合并同一工作簿中的所有工作表，适用于结构相似的数据表。
1、打开Excel，点击数据选项卡，选择获取数据 → 从文件 → 从工作簿。
2、浏览并选中当前工作簿文件，点击导入。
3、在导航器窗口中找到对应的工作簿连接，勾选包含文件夹中的所有工作表选项。
4、点击转换数据进入Power Query编辑器，确认每个工作表的数据结构一致。
5、选择添加列或展开操作以保留原始工作表名称作为来源标识。
6、点击关闭并上载，所有数据将被合并并输出到新的工作表中。
二、使用VBA宏代码批量合并
VBA可以自动化执行重复性任务，适合对多个工作表进行快速合并，尤其适用于定期处理相同格式的报表。
1、按下Alt + F11打开VBA编辑器。
2、插入一个新模块，粘贴以下代码：
Sub 合并所有工作表()
Dim ws As Worksheet, targetWs As Worksheet
Set targetWs = ThisWorkbook.Sheets.Add
targetWs.Name = "合并数据" & Format(Now(), "HHMMSS") ' 避免重名
Dim rowOffset As Long
rowOffset = 1
For Each ws In ThisWorkbook.Sheets
If ws.Name targetWs.Name Then
ws.UsedRange.Copy Destination:=targetWs.Cells(rowOffset, 1)
rowOffset = rowOffset + ws.UsedRange.Rows.Count
End If
Next ws
End Sub
3、运行该宏，系统会创建一个新的工作表并将所有其他工作表的内容按顺序粘贴上去。
4、注意确保原始工作表结构一致，否则可能出现错位。
三、手动复制粘贴（适用于少量工作表）
当工作表数量较少且结构差异较大时，手动方式更为直观可控，但需注意避免遗漏或覆盖数据。
1、新建一个工作表，命名为“合并结果”或其他便于识别的名称。
2、依次切换至每一个源工作表，选中需要合并的数据区域。
3、右键选择复制，然后切换回“合并结果”表，定位到目标位置。
4、粘贴数据，并在每次粘贴后记录来源工作表名称以方便追溯。
5、为防止标题行重复，在第二次及以后的粘贴过程中应跳过第一行数据。
