在处理多个Excel工作表中的数据时，我们经常需要将这些数据汇总到一个工作表中以便进行进一步分析。使用VBA（Visual Basic for Applications）可以自动化这一过程，从而提高效率并减少重复性工作。以下是使用VBA合并多个Excel工作表中数据的步骤和方法。

准备工作

在开始编写VBA代码之前，确保你的Excel文件中所有需要合并的工作表都遵循相同的结构，即它们拥有相同数量和顺序的列。这样可以确保数据在合并时能够正确对应。

步骤1：打开VBA编辑器

1. 打开包含多个工作表的Excel文件。
2. 按下 Alt + F11 打开VBA编辑器。

步骤2：插入一个新模块

1. 在VBA编辑器中，右键点击“VBAProject (你的工作簿名称)”。
2. 选择“插入” -> “模块”，这将创建一个新的模块用于编写代码。

步骤3：编写VBA代码

在新模块中，输入以下代码：

Sub 合并工作表()
    Dim ws As Worksheet
    Dim ws汇总 As Worksheet
    Dim rng As Range
    Dim r As Long
    
    ' 创建一个新的工作表用于汇总数据
    Set ws汇总 = ThisWorkbook.Worksheets.Add
    ws汇总.Name = "汇总数据"
    
    ' 初始化汇总行号
    r = 1
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过汇总工作表本身
        If ws.Name <> ws汇总.Name Then
            ' 设置要复制的数据范围
            Set rng = ws.UsedRange
            ' 如果不是第一个工作表，跳过标题行
            If r > 1 Then
                Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
            End If
            ' 复制数据到汇总工作表
            rng.Copy Destination:=ws汇总.Cells(r, 1)
            ' 更新汇总行号
            r = r + rng.Rows.Count
        End If
    Next ws
    
    ' 提示完成
    MsgBox "所有工作表的数据已合并到 '" & ws汇总.Name & "' 中。", vbInformation
End Sub

步骤4：运行VBA宏

1. 在VBA编辑器中，按下 F5 键或点击工具栏的“运行”按钮来执行宏。
2. 如果宏运行成功，你将看到一个消息框提示所有工作表的数据已合并到新创建的“汇总数据”工作表中。

注意事项

• 确保在运行宏之前保存你的工作，因为宏操作无法撤销。
• 如果你的工作表中包含合并单元格，可能需要对代码进行适当的调整。
• 如果工作表数据量很大，运行宏可能需要一些时间。

通过以上步骤，你可以快速地将多个工作表中的数据合并到一个工作表中。这不仅提高了工作效率，还使得数据处理变得更加方便。

AI办公助手：WPS灵犀

如果本文未能解决您的问题，或者您在办公领域有更多疑问，我们推荐您尝试 WPS灵犀 —— 一款强大的人工智能办公助手。

WPS灵犀 具备AI搜索、读文档、快速创作、生成PPT、长文写作、网页摘要、截图问答、上传文件等功能快来体验吧