如何在 Excel 中計算不同工作表中儲存格的平均值？

若您需要計算多個工作表中相同範圍的平均值——例如計算名為 Sheet 1 至 Sheet 5 的工作表中 A1:A10 範圍的平均銷售額——Excel 提供直接以公式為基礎的解決方案，特別適用於所有工作表結構一致且命名規則統一的情況！

步驟：

選取一個空白儲存格作為結果輸出位置（例如 C3 儲存格），並輸入下列公式：

=AVERAGE(Sheet1:Sheet5!A1:A10)

按下 Enter 後，Excel 將自動計算並傳回從 Sheet1 到 Sheet5 所有工作表中限定區域的平均值。

若需跨工作表對不同範圍的數值求平均，可手動逐一列出：

=AVERAGE(A1:A5, Sheet2!A3:A6, Sheet3!A7:A9, Sheet4!A2:A10, Sheet5!A4:A7)

當各工作表的範圍不一致時，此版本特別實用！請在結果儲存格中輸入該公式，然後按下 Enter。

Kutools for Excel 透過其自動遞增工作表引用功能，大幅提升您從多個結構一致的工作表中提取並彙總相同儲存格或範圍數值的效率，尤其適合處理大量資料時使用！

使用步驟：

1. 開啟一個新工作表（例如摘要工作表），並選取要計算平均值的儲存格——例如 D7.

2. 前往 Kutools > 更多（位於）公式群組內），啟用自動遞增工作表引用功能。

3. 在對話方塊中：
- 從填充順序下拉式清單中，選擇一個填充順序（例如）先行後列）。
- 在工作表列表中，勾選包含欲計算平均值儲存格的工作表。
- 點擊填入範圍，然後關閉對話方塊。

4. 所選儲存格的數值將顯示於指定範圍中（例如 ）D7:D11）。接著，在另一個空白儲存格中輸入下列公式，立即計算平均值：

=AVERAGE(D7:D11)

按下 Enter 即可立即取得結果！此方法簡化彙總作業，但不會自動擴充以包含新加入的工作表——當工作表清單變更時，請重新執行此功能。

某些情況下，您可能需要同時計算多個工作表中對應儲存格的平均值——例如彙總各工作表中 A1、B1 與 C1 的結果。使用標準公式處理此類需求往往相當繁瑣，但 Kutools for Excel 的合併（工作表與活頁簿）工具能大幅簡化此流程！

如何使用此功能：

1. 點擊 KUTOOLS PLUS＞ 合併，即可開啟合併工作表精靈。

2. 在精靈中（第 1 步，共 3 步）：
勾選合併計算多個工作簿中的數據到一個工作表中，然後點擊下一步繼續。

3. 在第 2 步（共 3 步）：
- 在工作表列表下方，選取要包含的工作表。
- 點擊瀏覽按鈕，定義用於平均計算的範圍。
- 若所有工作表的範圍皆相同，請點擊相同範圍。
- 點擊下一步繼續。

4. 在第 3 步（共 3 步）：
從平均的函數下拉式清單中選取完成。如有需要，亦可設定列／欄標籤，然後點擊

5. 系統將彈出對話方塊，詢問您是否要將目前設定儲存為情境以供日後使用。請根據需求選擇是或否。

現在，您所定義的列表區域中每個儲存格，都會自動顯示所有選取工作表中對應儲存格的平均值。此方法特別適合用於重複性作業，或需要快速彙整大量結構化資料的情境。

對於需要自動化計算多個工作表中儲存格平均值的使用者——特別是當工作表名稱不連續、經常變動，或希望在執行階段動態指定區域時——VBA 巨集是一種高效解決方案。此方法最適合進階使用者，或經常新增與重新命名工作表的活頁簿。

下列 VBA 程式碼可讓您動態輸入工作表名稱與儲存格範圍，並計算所有指定工作表中特定區域的平均值，非常適合用於結構複雜或經常更新的活頁簿。

如何設定並使用此 VBA 解決方案：

1. 前往 Excel 中的開發人員頁籤。若未顯示，請透過檔案 > 選項 > 自訂功能區啟用；接著點擊 Visual Basic 以開啟編輯器，並前往插入> 模組，貼上下列程式碼：

Sub AverageAcrossSheets()
    Dim xSheetNames As String
    Dim xCellRange As String
    Dim xArr As Variant
    Dim xSheet As Worksheet
    Dim xTotal As Double
    Dim xCount As Long
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    xSheetNames = Application.InputBox("Enter sheet names separated by commas (e.g., Sheet1,Sheet3,Summary):", xTitleId, Type:=2)
    If xSheetNames = "" Then Exit Sub
    
    xCellRange = Application.InputBox("Enter cell or range to average (e.g., A1 or A1:B10):", xTitleId, Type:=2)
    If xCellRange = "" Then Exit Sub
    
    xArr = Split(xSheetNames, ",")
    xTotal = 0
    xCount = 0
    
    For i = LBound(xArr) To UBound(xArr)
        Set xSheet = Nothing
        Set xSheet = ThisWorkbook.Sheets(Trim(xArr(i)))
        
        If Not xSheet Is Nothing Then
            If Not IsError(Application.WorksheetFunction.Average(xSheet.Range(xCellRange))) Then
                xTotal = xTotal + Application.WorksheetFunction.Sum(xSheet.Range(xCellRange))
                xCount = xCount + xSheet.Range(xCellRange).Count
            End If
        End If
    Next i
    
    If xCount = 0 Then
        MsgBox "No valid data found!", vbExclamation, xTitleId
    Else
        MsgBox "The average across selected sheets and range is: " & xTotal / xCount, vbInformation, xTitleId
    End If
End Sub

2. 若要在編輯器中執行巨集，請按下 F5；或關閉編輯器後，前往開發人員 > 巨集，選取 AverageAcrossSheets，然後點擊執行。

3. 出現提示時，請輸入以逗號分隔的工作表名稱清單（例如 ）Sheet 1,Sheet 3,Summary），並指定範圍（例如 A1:A10）。

4. 巨集將計算每個有效工作表的總和與計數，並在訊息方塊中顯示平均值。

參數說明：

• 工作表名稱不區分大小寫，但必須完全一致。
• 範圍可以是單一儲存格、完整欄（例如 B:B），或是矩形區域（例如 D2:E12）。
• 無效或遺漏的工作表將被靜默跳過。