如何在Excel中计算来自不同工作表的单元格平均值？

如果您需要计算多个工作表中相同区域的平均值——例如，要计算名为Sheet1到Sheet5的工作表中A1:A10区域的平均销售额——Excel提供了一种直接基于公式的解决方案。这种方法在所有工作表结构相同且命名一致时效果最佳。

步骤：

选择一个空白单元格作为结果输出位置（例如，C3单元格），然后输入以下公式：

=AVERAGE(Sheet1:Sheet5!A1:A10)

按下回车键后，Excel将返回从Sheet1到Sheet5所有工作表中指定区域的平均值。

如果需要计算来自不同区域的平均值，您可以手动列出它们：

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

此版本在各工作表之间的区域不同时非常有用。将其输入到结果单元格并按回车键即可。

Kutools for Excel通过其自动递增工作表引用功能增强了从多个工作表中提取和汇总相同单元格或区域值的能力。这在处理具有大量布局一致的工作表时特别有帮助。

使用步骤：

1. 打开一个新的工作表（例如汇总表），然后选择要计算平均值的单元格——例如D7。

2前往 Kutools > 更多 （位于 公式 组）> 自动递增工作表引用.

3。在弹出的对话框中：
  - 从 填充顺序 下拉菜单中选择一个填充顺序（例如， 先行后列).
  - 在 工作表列表中，勾选包含要平均单元格的工作表。
  - 点击 填充区域，然后关闭对话框。

4. 所选单元格值将被列在指定区域中（例如，D7:D11）。然后在另一个空白单元格中输入以下公式以计算平均值：

=AVERAGE(D7:D11)

按下回车键获取结果。此方法简化了数据汇总，但不会自动扩展以包含新添加的工作表——当工作表列表发生变化时，您需要重新运行该功能。

在某些情况下，您可能需要同时计算多个工作表中若干对应单元格的平均值——例如，汇总每个工作表中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）。
• 无效或缺失的工作表将被静默跳过。