在Excel中，经常需要处理多个工作簿和工作表的数据，特别是在数据分析、报表整理或项目管理等场景下。当你面临的工作簿内包含多个工作表，且这些工作表的格式和标题都相同，进行数据汇总可能会变得相对繁琐。然而，通过VBA（Visual Basic for Applications）编程，我们可以自动化这一过程，大大提高工作效率。下面将详细讲解如何利用VBA实现多工作簿多个工作表的数据汇总。
确保你对Excel VBA有一定的基础了解，包括工作簿（Workbook）、工作表（Worksheet）、范围（Range）等基本概念。VBA是Excel内置的一种编程语言，能够帮助我们编写自定义函数和宏，实现对Excel对象的操作。
**步骤1：创建主工作簿**
在开始编写VBA代码之前，创建一个空白的工作簿作为主工作簿，这个工作簿将用于接收其他所有工作簿的数据。
**步骤2：编写VBA宏**
在VBA编辑器中，创建一个新的模块（Module），并输入以下代码：
```vb
Sub 汇总数据()
Dim 工作簿列表 As Variant
Dim 当前工作簿 As Workbook
Dim 数据源工作簿 As Workbook
Dim 数据源工作表 As Worksheet
Dim 目标工作表 As Worksheet
Dim 数据范围 As Range
' 定义需要汇总的工作簿路径
工作簿列表 = Array("路径1\文件名1.xlsx", "路径2\文件名2.xlsx", ...) ' 将实际路径和文件名替换
' 设置主工作簿和目标工作表
Set 当前工作簿 = ThisWorkbook
Set 目标工作表 = 当前工作簿.Worksheets("汇总") ' 假设已有名为"汇总"的工作表
' 遍历所有工作簿
For Each 文件路径 In 工作簿列表
' 打开数据源工作簿
Set 数据源工作簿 = Workbooks.Open(文件路径)
' 遍历数据源工作簿的所有工作表
For Each 数据源工作表 In 数据源工作簿.Worksheets
If 数据源工作表.Name <> "汇总" Then ' 跳过已有的汇总工作表
' 获取数据源工作表中的数据范围
Set 数据范围 = 数据源工作表.Range("A1").CurrentRegion ' 假设数据从A1开始，扩展到所有非空单元格
' 将数据复制到目标工作表
数据范围.Copy 目标工作表.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) ' 在目标工作表的下一行粘贴
End If
Next 数据源工作表
' 关闭数据源工作簿
数据源工作簿.Close SaveChanges:=False
Next 文件路径
End Sub
```
这段代码首先定义了一个数组`工作簿列表`，包含所有需要汇总的工作簿的完整路径。然后，它会遍历每个工作簿和其工作表，找到数据源，并将其复制到主工作簿的“汇总”工作表中。注意，你需要根据实际情况调整数据范围（如`Range("A1").CurrentRegion`）以及文件路径。
**步骤3：运行VBA宏**
保存VBA代码后，在Excel中按下`Alt + F8`打开宏对话框，选择刚创建的`汇总数据`宏，点击运行。这将自动打开并读取指定路径中的工作簿，将每个工作表的数据复制到主工作簿的“汇总”工作表中。
**注意事项**
1. 确保所有工作簿的格式和标题相同，以便正确匹配数据。
2. 检查工作簿路径是否正确，避免因路径错误导致宏运行失败。
3. 为了避免覆盖已有数据，此代码假设目标工作表的名称为“汇总”，请确保主工作簿中已存在该工作表。
4. 如果工作表中存在合并单元格，可能需要额外处理，以确保数据正确粘贴。
通过这种方式，你可以轻松地完成多工作簿多个工作表的数据汇总任务，而无需手动操作，大大提高了工作效率。在实际工作中，可以根据具体需求对VBA代码进行调整，以满足更复杂的需求。
