Excel多表合并VBA代码怎么用

很多人手里有十几张结构相同的月报表，想合并成一张总表，却只能一张张复制粘贴。手动操作既慢，又容易漏行或粘错位置。Excel 的 VBA 宏可以把这件事交给程序完成，运行一次就能得到汇总结果。

这篇写给已经会基本表格操作、但没写过代码的读者。读完你会知道什么情况适合用 VBA，怎样把代码粘贴进 Excel 并运行，运行前要根据自己的表格改哪几处，以及合并后如何核对结果。

动手前要先提醒一点：宏会直接处理工作簿里的数据，运行后通常不能像普通编辑那样用撤销恢复，所以一定先备份原文件。

多表合并要不要用 VBA 代码？一句话结论

如果只有两三张表，手动复制粘贴通常更快。表数多、而且每张表的表头和列顺序一致，用宏才划算。下面的表格可以帮你判断。

合并代码如下，每一行对应一条语句：

Sub 合并工作表()
Dim ws As Worksheet, dest As Worksheet
Dim lastRow As Long, startRow As Long, nextRow As Long
Dim firstSheet As Boolean
firstSheet = True
nextRow = 1
Set dest = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))
dest.Name = "合并结果"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> dest.Name Then
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
If firstSheet Then startRow = 1 Else startRow = 2
If lastRow >= startRow Then
ws.Range(ws.Cells(startRow, 1), ws.Cells(lastRow, ws.UsedRange.Columns.Count)).Copy dest.Cells(nextRow, 1)
nextRow = nextRow + (lastRow - startRow + 1)
firstSheet = False
End If
End If
Next ws
MsgBox "合并完成"
End Sub

如果你的表头有两行，把代码里的“startRow = 2”改成“startRow = 3”；想换结果表名，就改“dest.Name”那一行引号里的文字。这两处是常需要调整的地方。

宏运行完成不代表结果一定正确，建议至少核对下面几项。

检查项	怎么看	有问题怎么办
总行数	把各原表的数据行数相加，与结果表行数比较	少了就检查 A 列是否有空行，多了就检查表头是否被重复带入
表头	看结果表第一行是否只出现一次	若表头重复，检查 startRow 的设置是否正确
列对齐	抽查每张表的首行和末行，看数据是否落在正确的列	若列错位，回到原表统一列顺序后重新运行
数字和日期	看数字是否仍能求和，日期是否仍显示为日期	若变成文本，可用分列或选择性粘贴数值等通用方法统一格式
原表内容	确认原工作表没有被修改	若被改动，用备份文件恢复后重新操作

如果结果不理想，不要在结果表上硬改，而是回到备份文件，修正原表结构后重新运行宏。

Excel 多表合并 VBA 代码适合表数多、结构统一、需要重复合并的场景。动手前先备份原文件，把文件保存为启用宏的格式，粘贴代码后根据表头行数和表名做必要调整。运行后逐项核对行数、表头和列对齐，结果无误再使用。

一般不能像普通编辑那样用撤销恢复，所以运行前一定要备份原文件。出错时，直接用备份重新操作即可。

可以。代码遍历工作簿中的所有工作表，表名不影响合并。需要注意的是，结果表名称不能与已有工作表重名。

先确认文件来源可靠，再按提示启用内容。如果是公司电脑，可能有统一的安全策略，应向管理员确认权限，不要尝试绕过限制。

可以照着步骤粘贴并运行，但要理解每个需要修改的位置，比如表头行数和表名。只要表结构统一，大多数情况下不需要改动代码逻辑。

多数情况下是原表问题，比如列顺序不一致、A 列有空行或表头行数不同。先按核对表逐项检查，再决定是否修改代码。

打开 OmniDoc，处理你的表格文件