1. 導入：なぜVBAで「SUMPRODUCT」的な集計を行うのか
Excelの関数、特にSUMPRODUCT関数は、複数条件を満たすデータの集計に非常に強力です。しかし、データ量が増大すると再計算に時間がかかり、ファイルが重くなるという課題があります。また、集計結果を別の処理に渡す際、ワークシート関数を数式としてセルに埋め込むと、誤って削除されたり、修正されたりするリスクも伴います。
今回は、VBAを使って「複数条件による抽出と集計」を自動化する方法を解説します。これにより、大規模なデータでも高速かつ堅牢なレポート生成が可能になります。
2. 基礎知識：VBAにおける集計の考え方
SUMPRODUCT関数は「配列の積を合計する」という性質を持っています。VBAでこれを実現する場合、基本的には「ループ処理（For Eachなど）」を使用して、一つひとつの行を確認し、条件に合致するかを判定する手法をとります。
具体的には「If文による条件分岐」と「変数への加算」を組み合わせることで、ワークシート関数と同じロジックをコード上で再現できます。
3. 実装/解決策：条件判定と加算のロジック
VBAで集計を行う際の手順は以下の通りです。
1. 集計対象のデータ範囲を特定する。
2. 合計値を保持するための変数（Double型など）を初期化する。
3. For EachまたはForループで対象範囲を一行ずつ走査する。
4. 各行のセル値が「条件」と一致するか確認する。
5. 一致した場合のみ、該当する金額を合計用変数に加算する。
このステップを踏むことで、複雑な条件式も柔軟にカスタマイズ可能なコードに落とし込めます。
4. サンプルプログラム：複数条件による集計コード
以下は、特定の「仕上サイズ」と「刷色」に一致する金額を合計し、メッセージボックスで表示する実務的なコード例です。
Sub CalculateTotalAmount()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim totalAmount As Double
Dim targetSize As String
Dim targetColor As String
‘ 対象シートの設定
Set ws = ThisWorkbook.Sheets(“オーダー表”)
‘ 条件の指定（実際にはセルから取得することも可能）
targetSize = “A4”
targetColor = “赤”
‘ データ範囲の最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “F”).End(xlUp).Row
‘ 集計用変数の初期化
totalAmount = 0
‘ データ範囲をループして条件判定
For i = 12 To lastRow
‘ F列がサイズ、G列が刷色、H列が料金と仮定
If ws.Cells(i, 6).Value = targetSize And ws.Cells(i, 7).Value = targetColor Then
‘ 条件一致する場合、H列の金額を加算
totalAmount = totalAmount + ws.Cells(i, 8).Value
End If
Next i
‘ 結果を表示
MsgBox “条件に一致する合計金額は ” & Format(totalAmount, “#,
0″) & ” 円です。”
End Sub
5. 応用・注意点：現場で陥りやすい罠
・型の不一致に注意：
集計対象のセルに空白や文字列が含まれていると、計算時にエラーが発生します。集計前には必ず「IsNumeric関数」で数値かどうかを確認する、あるいは「Val関数」で数値に変換してから計算するなどのガード処理を入れましょう。
・処理速度の最適化：
データが数万件を超える場合は、セルを直接参照するよりも、一旦配列（Variant型変数）にデータを格納してから処理を行うと、劇的に速度が向上します。
・絶対参照の意識：
VBAではセル番地を直接指定するため、シートのレイアウト変更に弱くなりがちです。可能であれば「名前の定義」や「テーブル（ListObject）」を活用して、動的に範囲を取得するようにすると、メンテナンス性の高いコードになります。
