如何在 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 步）中：
从 Function 下拉列表中选择“平均值”（Average）。如有需要，可配置行列标签，然后单击完成。

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）。
• 无效或缺失的工作表将被静默跳过。