VBA～WorksheetFunction.AverageIfsメソッド～Excel

VBAで指定した範囲内において、複数の条件をみたした場合に数値を平均したい場合はWorksheetFunction.AverageIfsメソッドを使います。

書き方

WorksheetFunction.AverageIfs(平均対象範囲, 条件範囲 1, 条件 1, [条件範囲 2, 条件 2], ...)

例として下の画像において下のコードを実行するとセルG2に1班の男性の所持金の平均を表示します。

Sub test1()

Range("G2") = WorksheetFunction.AverageIfs(Range("D2:D7"), Range("B2:B7"), "1班", Range("C2:C7"), "男性")

End Sub