Excel VBA もし○○だったら（検索条件に一致）数える－CountIf

Excel VBAで「もし○○だったらカウントする」（検索条件に一致）という方法の記録です。

検索条件に一致したセルの個数を数える場合は、ワークシート関数の「CountIf」を使います。

< スポンサーリンク >

「CountIf」構文

Arg1＝必須。データ型はRange。セルの個数を求めるセル範囲を指定。
Arg2＝必須。データ型はVariant。計算の対象となるセルを定義する条件を数値、式、セル参照、または文字列で指定。たとえば、検索条件は 32、”32″、”Windows”、またはB4のようになります。（式および文字列を指定する場合は半角の二重引用符(“)で囲む必要があります。）

戻り値：倍精度浮動小数点型（Double）

指定された範囲に含まれるセルのうち、検索条件に一致するセルの個数を返します。

検索条件に一致したセルの個数を数える例

D列に「男」と入力されているセルを数えてメッセージで表示します。

Sub test()
  MsgBox WorksheetFunction.CountIf(ActiveSheet.Range("D:D"), "男")
End Sub

E列の「35歳以上」のセルを数えてメッセージで表示します。

Sub test()
  MsgBox WorksheetFunction.CountIf(ActiveSheet.Range("E:E"), ">=35")
End Sub