如何在 Excel 中计算加权平均值？

假设您有一个如下图所示的购物清单。虽然 Excel 的 AVERAGE 函数会计算不考虑重量或数量的平均价格，但在这种情况下，更准确的做法是计算加权平均值——通过赋予重量或购买频率更高的商品更大的权重，从而更真实地反映每单位的实际成本。

要计算加权平均价格，请结合使用 SUMPRODUCT 和 SUM 函数，如下所示：

选择一个空白单元格（例如 F2），输入以下公式：

=SUMPRODUCT(C2:C18,D2:D18)/SUM(C2:C18)

然后按下 Enter 键即可获取结果。

注意：在此公式中，C2:C18 表示“重量”列，D2:D18 表示“价格”列。请根据您的实际数据布局调整这些区域。SUMPRODUCT 函数会将每个重量与其对应的价格相乘后求和，而 SUM 则对重量求和——从而准确计算出加权平均值。务必确保所选区域长度相等，且数据中无空单元格或不匹配项，以免导致计算错误。

如果计算出的加权平均值显示的小数位数过多或过少，可选择该单元格，然后点击开始选项卡中的增加小数位数按钮或减少小数位数按钮，即可按需调整显示的小数位数。

若出现 #VALUE！ 等错误，请仔细检查每个引用单元格是否包含数值，并确保所选区域一致。同时，计算区域中请勿包含标题行，以保障结果的准确性。处理大型数据集时，建议使用命名区域，以提升清晰度并便于后续维护。

前面的公式计算了所有项目的加权平均价格。在实际分析中，您可能希望针对特定类别（例如仅计算苹果的加权平均价格）进行计算。此时，可对公式加以优化，加入条件筛选功能。

为此，请选择一个空白单元格（例如 F8），并输入以下公式：

=SUMPRODUCT((B2:B18="Apple")*C2:C18*D2:D18)/SUMIF(B2:B18,"Apple",C2:C18)

然后按 Enter 键，即可计算满足特定条件的加权平均值。该公式仅在项目匹配条件（本例中为“Apple”）时，才会将对应重量与价格相乘并求和，再除以该项目的重量总和。

注意：此处，B2:B18 为“水果”列，C2:C18 为“重量”，D2:D18 为“价格”。您可根据需要将“Apple”替换为其他项目。此方法适用于单一条件筛选；如需按多个条件（例如水果类型和供应商）筛选，建议使用辅助列或更高级的公式。

应用公式后，您可能希望调整小数位数以提升可读性。请选中结果单元格，然后点击开始选项卡中的增加小数位数或减少小数位数按钮，即可更改显示的小数位数。

如果公式返回了意外结果，请确认目标区域内存在符合条件的匹配项，并仔细检查本应为数值的列中是否包含空单元格或文本内容。

在某些情况下，您可能需要频繁计算加权平均值，而数据范围的大小可能变化、包含缺失值，或需灵活筛选（例如同时应用多个条件）。与其手动更新公式或区域，不如使用 VBA 宏自动执行计算——不仅节省时间，更能显著降低出错几率，尤其适用于大型或定期更新的数据集。

以下是创建和使用加权平均 VBA 宏的方法：

1. 单击开发工具>Visual Basic（或按 ）Alt + F11），即可打开 Microsoft Visual Basic for Applications 编辑器窗口。接着，单击插入> 模块，并将以下代码粘贴到新模块窗口中：

Sub WeightedAverageVBA()
    Dim rngCriteria As Range
    Dim rngWeight As Range
    Dim rngValue As Range
    Dim criteriaStr As String
    Dim totalWeighted As Double
    Dim totalWeight As Double
    Dim i As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rngCriteria = Application.InputBox("Select the range for criteria (optional, press Cancel to skip):", xTitleId, Type:=8)
    criteriaStr = Application.InputBox("Enter criteria for filtering (leave blank for all):", xTitleId, Type:=2)
    Set rngWeight = Application.InputBox("Select the Weight (numeric) range:", xTitleId, Type:=8)
    Set rngValue = Application.InputBox("Select the Value (e.g. Price) range:", xTitleId, Type:=8)
    
    totalWeighted = 0
    totalWeight = 0
    
    If rngCriteria Is Nothing Or criteriaStr = "" Then
        For i = 1 To rngWeight.Cells.Count
            If IsNumeric(rngWeight.Cells(i).Value) And IsNumeric(rngValue.Cells(i).Value) Then
                totalWeighted = totalWeighted + rngWeight.Cells(i).Value * rngValue.Cells(i).Value
                totalWeight = totalWeight + rngWeight.Cells(i).Value
            End If
        Next i
    Else
        For i = 1 To rngWeight.Cells.Count
            If rngCriteria.Cells(i).Value = criteriaStr Then
                If IsNumeric(rngWeight.Cells(i).Value) And IsNumeric(rngValue.Cells(i).Value) Then
                    totalWeighted = totalWeighted + rngWeight.Cells(i).Value * rngValue.Cells(i).Value
                    totalWeight = totalWeight + rngWeight.Cells(i).Value
                End If
            End If
        Next i
    End If
    
    If totalWeight = 0 Then
        MsgBox "Weighted average cannot be calculated: total weight is zero.", vbExclamation, xTitleId
    Else
        MsgBox "Weighted average: " & totalWeighted / totalWeight, vbInformation, xTitleId
    End If
End Sub

2. 按 F5（或单击）运行按钮）执行宏。
系统将引导您依次选择区域（条件区域——如不需要可跳过、权重区域和值区域）。您可输入特定条件以筛选计算，也可留空以包含所有数据。该宏支持动态区域，特别适合表格频繁增减或变动的场景，助您轻松应对数据变化！

最后，您将收到一个消息框，其中清晰列出加权平均结果。

提示：

• 该方法可自动执行重复的加权平均分析，并能进一步扩展，以支持更多筛选条件或输出选项。
• 请确保所选区域长度相等，且数据类型一致。
• 如示例所示，包含基本的错误处理（例如，当未找到有效权重或权重总和为零时）。
• 若仅希望应用于筛选或可见行，可通过特殊单元格枚举进一步增强代码。

如遇权限或宏安全问题，请在运行代码前确保已在 Excel 设置中启用宏。

Excel 中带舍入的平均值计算

Excel 中平均变化率计算

Excel 中平均/复合年增长率计算

Excel 中移动/滚动平均值

Excel 中累计总和/平均值