使用VBA或Power Query可一键合并Excel多工作表数据：VBA基础版保留首表标题并去重，增强版添加来源标识列；Power Query无需编程，支持自动刷新。
如果您需要将Excel工作簿中多个工作表的数据统一汇总到一个新工作表中，手动复制粘贴不仅耗时且易出错。以下是使用VBA实现一键合并多个工作表数据的具体操作方法：
一、使用基础VBA代码合并所有Sheet（不含标题重复）
该方法适用于各工作表结构一致（列数与字段顺序相同），且仅需保留第一个工作表的标题行。VBA会遍历所有工作表，跳过目标汇总表本身，逐个将数据追加至汇总表底部。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧“工程资源管理器”中右键当前工作簿名称，选择“插入” → “模块”。
3、在右侧空白窗口中粘贴以下代码：
Sub 合并所有工作表()
Dim ws As Worksheet, destWs As Worksheet
Dim lastRow As Long, nextRow As Long
Set destWs = ThisWorkbook.Worksheets.Add
destWs.Name = "汇总结果"
For Each ws In ThisWorkbook.Worksheets
If ws.Name destWs.Name Then
If nextRow = 0 Then
ws.Rows(1).Copy destWs.Rows(1)
nextRow = 2
Else
lastRow = ws.UsedRange.Rows.Count
If lastRow > 1 Then
ws.Range("A2:" & ws.Cells(lastRow, ws.UsedRange.Columns.Count).Address).Copy _
destWs.Cells(nextRow, 1)
nextRow = destWs.UsedRange.Rows.Count + 1
End If
End If
End If
Next ws
End Sub
4、按 F5 运行宏，自动生成名为“汇总结果”的新工作表。
二、使用增强版VBA合并并添加来源标识列
该方法在汇总数据每一行末尾自动插入一列，标注原始数据所在工作表名称，便于溯源核查。适用于多源数据混合但需区分归属的场景。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub 合并带来源标识()
Dim ws As Worksheet, destWs As Worksheet
Dim lastRow As Long, nextRow As Long, colCount As Long
Set destWs = ThisWorkbook.Worksheets.Add
destWs.Name = "带来源汇总"
For Each ws In ThisWorkbook.Worksheets
If ws.Name destWs.Name Then
lastRow = ws.UsedRange.Rows.Count
colCount = ws.UsedRange.Columns.Count
If nextRow = 0 And lastRow >= 1 Then
ws.Rows(1).Copy destWs.Rows(1)
destWs.Cells(1, colCount + 1).Value = "来源工作表"
nextRow = 2
End If
If lastRow > 1 Then
ws.Range("A2:" & ws.Cells(lastRow, colCount).Address).Copy _
destWs.Cells(nextRow, 1)
destWs.Range(destWs.Cells(nextRow, colCount + 1), _
destWs.Cells(nextRow + lastRow - 2, colCount + 1)).Value = ws.Name
nextRow = nextRow + lastRow - 1
End If
End If
Next ws
End Sub
2、运行宏后，新工作表最后一列将显示对应行数据源自哪个Sheet。
三、使用Power Query替代VBA实现无代码合并
该方法无需编写或启用宏，适合对VBA安全性策略受限或不熟悉编程的用户。Power Query可自动识别同结构Sheet并追加，支持刷新更新。
1、确保所有待合并工作表结构完全一致（列名、列序、数据类型）。
2、在任一工作表中选中任意单元格，点击“数据”选项卡 → “从表格/区域”，勾选“表包含标题”，点击“确定”。
3、在Power Query编辑器中，点击“主页” → “关闭并上载至” → 选择“仅创建连接”，不加载当前表。
4、再次点击“数据” → “获取数据” → “从工作簿”，浏览并选择当前文件，展开“工作表”节点。
5、按住 Ctrl 键，勾选所有需合并的Sheet名称，点击“转换数据”。
6、在新打开的查询编辑器中，选中全部查询项，右键 → “追加查询” → “追加查询为新查询”。
7、点击“关闭并上载”，数据将自动汇总至新工作表。
