VBA～WorksheetFunction.AverageIfメソッド～Excel

VBAで指定した範囲内において条件に一致するすべてのセルの平均値を求めたい場合はWorksheetFunction.AverageIfメソッドを使います。

書き方

WorksheetFunction.AverageIf(範囲, 検索条件)

例として下の画像において下のコードを実行するとセルC2にセルA2からセルA7の範囲の中で4以上の値の平均値が表示されます。

Sub test1()

Range("C2") = WorksheetFunction.AverageIf(Range("A2:A7"), ">=4")

End Sub