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

如果您需要計算多個工作表中的相同區域的平均值，例如計算名為 Sheet1 到 Sheet5 的工作表中 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. 當提示時，輸入以逗號分隔的工作表名稱列表（例如 Sheet1,Sheet3,Summary），然後指定範圍（例如 A1:A10）。

4. 宏將計算每個有效工作表的總數和計數並在消息框中顯示平均值。

參數說明：

• 工作表名稱不區分大小寫，但必須完全匹配。
• 範圍可以是單一單元格、整列（例如 B:B）或矩形範圍（例如 D2:E12）。
• 無效或缺失的工作表將被靜默跳過。