在Excel中，遍歷工作簿并匯總數(shù)據(jù)通?？梢酝ㄟ^VBA（Visual Basic for Applications）來實現(xiàn)。以下是一個簡單的VBA示例，它遍歷一個工作簿中的所有工作表，并將每個工作表中的某個單元格值加到總和中。

你需要打開Excel，然后按下 `Alt + F11` 打開VBA編輯器。在VBA編輯器中，插入一個新的模塊（Insert > Module），然后復(fù)制并粘貼以下代碼：

```vba

Sub SummarizeWorkbooks()

Dim ws As Worksheet

Dim wb As Workbook

Dim summary As Double

Dim filePath As String

Dim fileName As String

' 設(shè)置工作簿的路徑和文件名

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

fileName = "YourWorkbookName.xlsx" ' 修改為你的工作簿名稱

' 打開工作簿

Set wb = Workbooks.Open(filePath & fileName)

' 初始化總和為0

summary = 0

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

For Each ws In wb.Sheets

' 假設(shè)我們要匯總的是每個工作表中的A1單元格的值

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

Next ws

' 輸出總和到Excel的消息框中

MsgBox "Total Sum: " & summary

' 關(guān)閉工作簿

wb.Close SaveChanges:=False

End Sub

```

這段代碼做了以下幾件事情：

1. 設(shè)置工作簿的路徑和文件名。

2. 打開指定路徑的工作簿。

3. 初始化一個變量 `summary` 來存儲總和。

4. 遍歷工作簿中的所有工作表，并將每個工作表A1單元格的值加到 `summary` 中。

5. 使用消息框顯示總和。

6. 關(guān)閉工作簿。

請根據(jù)你的實際需求修改路徑、文件名以及匯總的單元格位置（例如，將 `"A1"` 改為 `"B2"` 或其他任何你想要匯總的單元格引用）。

要運行此宏，你可以按 `F5` 鍵或者在VBA編輯器中選擇 `Run > Run Sub/UserForm`。記得運行宏之前保存你的工作，因為運行宏會關(guān)閉打開的工作簿。