ExcelVBA多表合并教程详解

文章不知道大家是否熟悉？今天我将给大家介绍《Excel VBA合并多表教程详解》，这篇文章主要会讲到等等知识点，如果你在看完本篇文章后，有更好的建议或者发现哪里有问题，希望大家都能积极评论指出，谢谢！希望我们能一起加油进步！

使用VBA可高效合并多个工作表数据。首先通过Alt+F11打开编辑器，插入模块并粘贴代码，实现三种合并方式：一是循环合并所有工作表内容至“汇总”表；二是仅合并非法指定名称的特定工作表（如销售表、库存表、订单表）；三是合并时跳过除首个工作表外的标题行，避免重复。每种方法均自动创建或清空“汇总”表，逐行复制数据并提示完成，确保操作快速准确。

如果您需要将多个工作表中的数据整合到一个汇总表中，手动复制粘贴不仅耗时还容易出错。通过使用VBA可以实现快速、准确地合并多个工作表的数据。以下是实现该功能的具体步骤：

本文运行环境：Dell XPS 13，Windows 11

一、使用VBA循环合并所有工作表

该方法适用于将当前工作簿中所有工作表的数据（除目标汇总表外）逐行复制到一个新的工作表中，保留原始数据结构。

1、按下 Alt + F11 打开VBA编辑器。

2、在左侧工程资源管理器中右键点击当前工作簿名称，选择“插入” -> “模块”。

3、将以下代码粘贴到代码窗口中：

Sub 合并所有工作表()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim nextRow As Long
Application.ScreenUpdating = False
On Error Resume Next
Set targetSheet = ThisWorkbook.Sheets("汇总")
If targetSheet Is Nothing Then
Set targetSheet = ThisWorkbook.Sheets.Add
targetSheet.Name = "汇总"
Else
targetSheet.Cells.Clear
End If
nextRow = 1
For Each ws In ThisWorkbook.Sheets
If ws.Name targetSheet.Name Then
If ws.UsedRange.Rows.Count > 0 Then
ws.UsedRange.Copy Destination:=targetSheet.Cells(nextRow, 1)
nextRow = nextRow + ws.UsedRange.Rows.Count
End If
End If
Next ws
Application.ScreenUpdating = True
MsgBox "合并完成！"
End Sub

4、关闭VBA编辑器，返回Excel，按下 Alt + F8，选择“合并所有工作表”，点击“运行”即可执行合并。

二、仅合并指定名称的工作表

当只需要合并部分特定名称的工作表时，可通过定义工作表名称数组来精确控制哪些表参与合并。

1、打开VBA编辑器，插入新模块或使用已有模块。

2、输入以下代码：

Sub 合并非法合并指定表()
Dim sheetNames As Variant
Dim wsName As Variant
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim nextRow As Long
sheetNames = Array("销售表", "库存表", "订单表") ' 修改为实际需要的表名
Application.ScreenUpdating = False
On Error Resume Next
Set targetSheet = ThisWorkbook.Sheets("汇总")
If targetSheet Is Nothing Then
Set targetSheet = ThisWorkbook.Sheets.Add
targetSheet.Name = "汇总"
End If
targetSheet.Cells.Clear
nextRow = 1
For Each wsName In sheetNames
Set ws = Nothing
Set ws = ThisWorkbook.Sheets(wsName)
If Not ws Is Nothing Then
If ws.UsedRange.Rows.Count > 0 Then
ws.UsedRange.Copy Destination:=targetSheet.Cells(nextRow, 1)
nextRow = nextRow + ws.UsedRange.Rows.Count
End If
End If
Next wsName
Application.ScreenUpdating = True
MsgBox "指定工作表合并完成！"
End Sub

3、根据实际需求修改 Array("销售表", "库存表", "订单表") 中的名称。

4、运行宏即可完成指定工作表的合并。

三、合并时跳过标题行重复项

此方法用于避免在合并过程中重复粘贴每个工作表的标题行，仅保留第一个工作表的标题。

1、在VBA编辑器中创建新模块或复用现有模块。

2、输入以下代码：

Sub 合并去重标题()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim nextRow As Long
Dim isFirstSheet As Boolean
Application.ScreenUpdating = False
On Error Resume Next
Set targetSheet = ThisWorkbook.Sheets("汇总")
If targetSheet Is Nothing Then
Set targetSheet = ThisWorkbook.Sheets.Add
targetSheet.Name = "汇总"
End If
targetSheet.Cells.Clear
nextRow = 1
isFirstSheet = True
For Each ws In ThisWorkbook.Sheets
If ws.Name targetSheet.Name Then
If ws.UsedRange.Rows.Count > 0 Then
If isFirstSheet Then
ws.UsedRange.Copy targetSheet.Cells(nextRow, 1)
nextRow = nextRow + ws.UsedRange.Rows.Count
isFirstSheet = False
Else
ws.Range(ws.UsedRange.Rows(1).Offset(1).Address & ":" & ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Address).Copy _
Destination:=targetSheet.Cells(nextRow, 1)
nextRow = nextRow + ws.UsedRange.Rows.Count - 1
End If
End If
End If
Next ws
Application.ScreenUpdating = True
MsgBox "已合并且去除重复标题！"
End Sub

3、运行该宏后，除第一个工作表外，其余工作表将从第二行开始复制数据，从而避免标题重复。

今天关于《ExcelVBA多表合并教程详解》的内容介绍就到此结束，如果有什么疑问或者建议，可以在golang学习网公众号下多多回复交流；文中若有不正之处，也希望回复留言以告知！