検索条件一致集計 SumIfメソッド

WorksheetFunction.SumIf(Arg1, Arg2, Arg3)

引数Arg1の範囲にあるArg2に一致する条件値のArg3の値の数値の合計を計算するワークシートのメソッドです。
[WorksheetFunction.SumIf(条件範囲,検索条件,合計範囲)]

引数一覧

名前	説明	型	備考
Arg1	検索対象範囲	Range	必須
Arg2	検索文字列	Variant	必須
Arg3	合計範囲	Variant	必須

引数に入れる順番内容はExcel関数のSUMIFと同じです

例　下記ExcelシートのYamadaの数字の合計を"B2"セルに表示

Sub SampleSumif()
Dim Worksh As Worksheet

Set Worksh = ThisWorkbook.Worksheets(1)

    Worksh.Range("B1") = WorksheetFunction.SumIf _
    (Worksh.Range(Cells(5, 1), Cells(10, 1)), _
    Worksh.Range("A1"), _
    Worksh.Range(Cells(5, 2), Cells(10, 2)))

End Sub

配列（連想配列：ハッシュ）を使った集計方はこっちにあります。
配列（連想配列：ハッシュ）の使い方　（Ｄｉｃｔｉｏｎａｒｙ）