ExcelのVBA（マクロ）でCountIfを使って条件に合ったセルを数える

上図は商品種別ごとに売上個数が入力されています。B3～B6のセル範囲から検索対象のE3に書かれた商品（リンゴ）が入っているセルの個数をF3セルに出力させてみましょう。

Sub sample()

    Cells(3, 6) = WorksheetFunction.CountIf(Range("B3:B6"), Cells(3, 5))

End Sub

VBAで「CountIf」を使ったサンプルになります。

• 2行目：「Range("B3:B6")」が範囲です。B3～B6のセル範囲を検索範囲とします。
• 2行目：「Cells(3, 5)」が検索条件です。例ではE3セルの「リンゴ」を範囲から探します。

上図では、C3～C6のセル範囲でE3セルに入力した目標個数を超えているセルの個数を数えてF3セルに入力したいと思います。

Sub sample()

    x = Cells(3, 5)

    Cells(3, 6) = WorksheetFunction.CountIf(Range("C3:C6"), ">" & x)

End Sub

VBAで「CountIf」を使ったサンプルになります。

• 2行目：変数xにE3セルに入力された数字を代入します。
• 3行目：「Range("C3:C6")」が検索範囲、「">" & x」が検索条件です。「xを超えたら」という条件を指定しています。

変数を使わない場合「"> 50"」のように記述しますが、検索条件で変数を使用したい場合は、変数と比較演算子を文字列結合「&」でつなげます。

VBAを実行すると、C3～C6のセル範囲でE3セルに入力した目標個数（50）を超えているセルの個数「3」がF3セルに表示されました。

上図では、B3～B10のセル範囲で空白以外のセルの個数を数えてE3セルに入力したいと思います。

Sub sample()

    Cells(3, 5) = WorksheetFunction.CountIf(Range("B3:B10"), "<>")

End Sub

VBAで「CountIf」を使ったサンプルになります。

• 2行目：「Range("B3:B10")」が検索範囲、「"<>"」が検索条件です。

「"<>"」は「"<>" & ""」を省略したものになります。比較演算子「<>」は等しくないという意味ですが、空白（""）と文字列結合（&）することで空白ではないという条件を指定しています。

VBAを実行すると、B3～B10のセル範囲で空白でないセルの個数「7」がE3セルに表示されました。

上図では、B3～B6のセル範囲で重複しているセルがあればD列に「重複」と入力したいと思います。

Sub sample()

    Dim i
    
    For i = 3 To 6

        If WorksheetFunction.CountIf(Range("B3:B6"), Cells(i, 2)) > 1 Then

            Cells(i, 4) = "重複"

        End If

    Next i

End Sub

VBAで「CountIf」を使ったサンプルになります。

• 2行目：ループ用の変数iを定義します。
• 3行目：For文で変数iを3から6まで繰り返します。
• 4行目：If文の条件式「If～Then」にCountIfを指定しています。「Range("B3:B6")」が検索範囲、「Cells(i, 2)) > 1」が検索条件です。
• 5行目：B3～B6のセル範囲に対象のセルの内容が2つ以上あればD列に「重複」と入力します。

VBAを実行すると、B3～B6のセル範囲で重複しているセルがあればD列に「重複」と表示されました。

上図では、B3～C6のセル範囲で「商品種別がリンゴ」かつ「売上個数が80より大きい」セルの個数を数えてE3セルに入力したいと思います。

Sub sample()

    Cells(3, 5) = WorksheetFunction.CountIfs(Range("B3:B6"), "リンゴ", Range("C3:C6"), ">80")

End Sub

VBAで「CountIf」を使ったサンプルになります。

• 2行目：CountIfsの1つ目の検索範囲が「Range("B3:B6")」、検索条件が「"リンゴ"」です。
• 2行目：CountIfsの2つ目の検索範囲が「Range("C3:C6")」、検索条件が「">80"」です。

CountIfでは検索範囲と検索条件を複数指定することができます。

VBAを実行すると、B3～B6のセル範囲で「商品種別がリンゴ」かつ「売上個数が80より大きい」セルの個数「1」がE3セルに表示されました。