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 で累計／累積平均を計算する