Excel多Sheet一键合并方法【VBA】

珍惜时间，勤奋学习！今天给大家带来《Excel多Sheet一键合并技巧【VBA】》，正文内容主要涉及到等等，如果你正在学习文章，或者是对文章有疑问，欢迎大家关注我！后面我会持续更新相关内容的，希望都能帮到正在学习的大家！

使用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、点击“关闭并上载”，数据将自动汇总至新工作表。

以上就是《Excel多Sheet一键合并方法【VBA】》的详细内容，更多关于的资料请关注golang学习网公众号！