excel如何遍历工作簿汇总

在Excel中，遍历工作簿并汇总数据通常可以通过VBA（Visual Basic for Applications）来实现。以下是一个简单的VBA示例，它遍历一个工作簿中的所有工作表，并将每个工作表中的某个单元格值加到总和中。

你需要打开Excel，然后按下 `Alt + F11` 打开VBA编辑器。在VBA编辑器中，插入一个新的模块（Insert > Module），然后复制并粘贴以下代码：

```vba

Sub SummarizeWorkbooks()

Dim ws As Worksheet

Dim wb As Workbook

Dim summary As Double

Dim filePath As String

Dim fileName As String

' 设置工作簿的路径和文件名

filePath = "C:PathToYourWorkbooks" ' 修改为你的工作簿所在路径

fileName = "YourWorkbookName.xlsx" ' 修改为你的工作簿名称

' 打开工作簿

Set wb = Workbooks.Open(filePath & fileName)

' 初始化总和为0

summary = 0

' 遍历工作簿中的所有工作表

For Each ws In wb.Sheets

' 假设我们要汇总的是每个工作表中的A1单元格的值

summary = summary + ws.Range("A1").Value

Next ws

' 输出总和到Excel的消息框中

MsgBox "Total Sum: " & summary

' 关闭工作簿

wb.Close SaveChanges:=False

End Sub

```

这段代码做了以下几件事情：

1. 设置工作簿的路径和文件名。

2. 打开指定路径的工作簿。

3. 初始化一个变量 `summary` 来存储总和。

4. 遍历工作簿中的所有工作表，并将每个工作表A1单元格的值加到 `summary` 中。

5. 使用消息框显示总和。

6. 关闭工作簿。

请根据你的实际需求修改路径、文件名以及汇总的单元格位置（例如，将 `"A1"` 改为 `"B2"` 或其他任何你想要汇总的单元格引用）。

要运行此宏，你可以按 `F5` 键或者在VBA编辑器中选择 `Run > Run Sub/UserForm`。记得运行宏之前保存你的工作，因为运行宏会关闭打开的工作簿。