如何在 Excel 中计算动态范围的平均值？

当您的数据范围起点或终点频繁变动时（例如月度销售数据或累计总额），使用公式是一种灵活的方式，可自动计算动态范围的平均值。通过让可变单元格定义动态范围的边界，您无需修改公式，即可轻松适应更新后的数据。

要设置此功能，请选择一个空白单元格（例如 C4 单元格），并输入以下公式：

=IF(C2=0,"NA",AVERAGE(A2:INDEX(A:A,C2)))

然后按下 Enter 键，即可查看计算出的平均值。

该公式会自动调整范围，涵盖从 A2 到 C2 所指定行中的所有单元格。因此，当 C2 的值发生变化时，参与平均计算的范围也会随之动态更新，让您在新增数据或聚焦特定子集时，轻松实现范围的灵活扩展或收缩。

注意事项：

（1) 在此公式中 =IF(C2=0,"NA",AVERAGE(A2:INDEX(A:A,C2)))：A2 表示要计算平均值的范围起始单元格，而 C2 指向包含该范围末尾单元格所在行号的单元格。请根据您的实际数据结构调整这些引用，并确保 C2 单元格引用的是有效行号，否则将返回“NA”或意外结果。

（2) 作为替代方案，您也可以使用：

=AVERAGE(INDIRECT("A2:A"&C2))

这种方法同样有效，因为它为范围创建了一个文本引用，INDIRECT 函数会动态解析该引用。但请注意，当 INDIRECT 与已关闭的工作簿或大型数据集配合使用时，可能会影响计算速度；对于易变数据，其效率不如 INDEX。

实用技巧：当您的数据持续增长（例如每天新增行）时，可借助 COUNTA 或 COUNT 函数自动设定上限单元格引用，确保动态范围始终涵盖最新条目。

适用场景：日常数据日志、时间序列条目，或任何范围起点/终点由用户输入或汇总单元格决定的分析。优势：直接有效，无需额外工具。局限性：若行位置发生大幅变动，则需手动调整公式。

当您的动态范围不是由位置定义，而是由特定条件（如区域、类别或用户自定义标签）定义时，可以结合动态命名区域和 INDIRECT 等函数来调整计算。这种方法特别适用于仪表板场景，用户从下拉菜单中选择后即可立即看到相关平均值。

首先，按标题行或列对您的数据集进行分组。操作步骤如下：

1. 选择整个区域（例如 A1:D11），然后点击名称管理器窗格中的根据所选内容创建按钮。在弹出的对话框中，同时勾选首行和最左列选项，然后点击确定。此步骤会自动为行列中的数据分配命名区域，从而简化公式中的引用。

2. 在您选定的空白单元格中输入以下公式：

=AVERAGE(INDIRECT(G2))

其中，G2 是用户输入或选择行/列标题名称的条件单元格。当 G2 中的内容发生变化时（例如从“Region 1”变为“Region 2”），公式将动态计算对应范围的平均值。请务必确保 G2 中的输入与已定义名称完全一致（包括大小写），以免出现 #REF！ 错误。

最适合：报表仪表板、条件驱动型分析。优势：通过用户交互实现高度灵活的动态报表或单单元格分析。局限性：依赖于正确的名称管理和一致的输入值。

在 Excel 中按填充颜色自动计数/求和/求平均值

有时您会通过填充颜色标记单元格，之后再对这些单元格进行计数、求和或计算平均值。Kutools for Excel 的按颜色统计工具可轻松帮您解决此问题。

对于更高级的动态行为（例如计算最后 N 行的平均值、基于多个动态条件求平均，甚至跨多个工作表合并数据），您可以创建自定义 VBA 宏。当内置公式过于复杂或需要适应频繁变化的结构时，这种方法尤为有用。

例如，您可能希望计算 A 列中最后 N 行的平均值（N 由用户输入），或对用户限定区域的非连续单元格求平均值。

1. 转到 开发工具 > Visual Basic，打开 Microsoft Visual Basic for Applications 编辑器，然后选择插入 > 模块并粘贴以下 VBA 代码：

Sub DynamicAverage_LastNRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim N As Long
    Dim result As Double
    Dim xTitleId As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = Application.ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    N = Application.InputBox("How many last rows to average?", xTitleId, 5, Type:=1)
    
    If N <= 0 Or N > lastRow - 1 Then
        MsgBox "Invalid input for N!", vbExclamation
        Exit Sub
    End If
    
    Set rng = ws.Range("A" & lastRow - N + 1, "A" & lastRow)
    result = Application.WorksheetFunction.Average(rng)
    
    MsgBox "Average of the last " & N & " rows in column A: " & result, vbInformation
End Sub

2. 点击按钮运行宏。在弹出的对话框中，输入您要计算平均值的最后几行数量（例如 5、10 等），然后点击“确定”。结果将显示在消息框中。

要实现更复杂的条件平均（例如基于条件或跨多个工作表），您可以相应地调整 VBA 代码——例如添加 InputBox 获取条件值，或循环遍历多个工作表以合并区域后再求平均值。

此方法提供了最大的灵活性，可自动化复杂或重复的动态平均计算。但请确保启用宏，并在受信任的工作簿中使用此方法以避免安全风险。运行新宏前请保存工作，并在自动化更改时考虑创建备份。

优点：支持自动化，可处理复杂或大型数据场景，可根据特定业务逻辑定制。缺点：需要具备基本的 VBA 知识，且在结构变更时需维护相关程序。