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キーを押して指定された基準を満たす加重平均を計算します。この数式は、項目が条件（この場合は「リンゴ」）に一致する場合にのみ、各重量と価格のペアを乗算し、それらを合計し、その項目の重量の合計で割ります。

注意: ここでは、B2:B18は「果物」列、C2:C18は「重量」、D2:D18は「価格」です。「リンゴ」を他の項目に置き換えてください。この方法は1つの条件でフィルタリングする場合にうまく機能します。複数の条件（例：果物の種類と仕入れ先）でフィルタリングする必要がある場合は、ヘルパー列またはより高度な数式が必要になる場合があります。

数式を適用した後、明瞭にするために小数点以下の桁数を調整したい場合があります。結果のセルを選択し、「 小数点以下の表示桁数を増やす または 小数点以下の表示桁数を減らす ボタンを「 ホーム 」タブで使用して、表示される小数点以下の桁数を変更します。

数式が予期しない結果を返した場合、基準がターゲット範囲内で一致していることを確認し、数値列に空白セルやテキストエントリがないか確認してください。

状況によっては、頻繁にサイズが変わる範囲、欠損値を含む範囲、または一度に複数の基準を適用する必要がある範囲で加重平均を計算する必要があります。手動で数式や範囲を更新する代わりに、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