VBA～WorksheetFunction.CountIfメソッド～Excel

VBAで範囲内で条件に一致するセルの個数を数えたい場合はWorksheetFunction.CountIfメソッドを使います。

書き方

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

例として下の画像において下のコードを実行するとセルD1にセルA1からセルA10の範囲でりんごと入力されたセルの個数を表示します。

Sub test1()

Range("D1") = WorksheetFunction.CountIf(Range("A1:A10"), "りんご")

End Sub