【VBA】複数の条件を満たすデータの件数を取得する【COUNTIFS関数】

VBAで
 ・複数の条件を満たすデータの件数を取得
できます!

VBAから
 ・ワークシート関数「COUNTIFS関数」
を使用することで実現できます!

PR

VBAコード

ここでは例として、
 ・シート「sample」のC列「性別」が「男」、かつD列「点数」が「80以上」
 ・件数を取得
します。
※上記の条件を満たす件数3件です。

「性別」が「男」、かつ「点数」が「80以上」の件数は3件。
「性別」が「男」、かつ「点数」が「80以上」の件数3件。
Option Explicit

Sub sample()

    Dim targetSheet As Worksheet
    Dim startRange As Range
    Dim endRow As Double
    Dim endRange As Range
    Dim sexRange As Range
    Dim scoreRange As Range
    Dim resultCount As Double

    '対象シートを取得
    Set targetSheet = Worksheets("sample")
    
    '------------------------------------
    '「性別」列の対象範囲を取得
    '------------------------------------
    '開始セルを取得
    Set startRange = targetSheet.Range("C3")
    '最終行を取得
    endRow = startRange.End(xlDown).Row
    '最終セルを取得
    Set endRange = targetSheet.Cells(endRow, startRange.Column)
    '対象範囲を取得
    Set sexRange = targetSheet.Range(startRange, endRange)
    
    '------------------------------------
    '「点数」列の対象範囲を取得
    '------------------------------------
    '開始セルを取得
    Set startRange = targetSheet.Range("D3")
    '最終行を取得
    endRow = startRange.End(xlDown).Row
    '最終セルを取得
    Set endRange = targetSheet.Cells(endRow, startRange.Column)
    '対象範囲を取得
    Set scoreRange = targetSheet.Range(startRange, endRange)
    
    '------------------------------------
    '複数の条件を満たすデータの件数を取得
    '------------------------------------
    resultCount = WorksheetFunction.CountIfs(sexRange, "男", scoreRange, ">=80")
    
    MsgBox ("条件を満たすデータの件数:" & resultCount)

End Sub

「性別」列の対象範囲を取得します(20~26行目)。
「点数」列の対象範囲を取得します(32~38行目)。

「WorksheetFunctionオブジェクト」の「CountIfs」メソッドにより、「複数の条件を満たすデータの件数」を取得します(43行目)。
※ワークシート関数「COUNTIFS関数」です。
※上記では使用していませんが、条件の指定には「ワイルドカード」も使用できます。
※上記では条件を2つ指定していますが、3つ以上も指定できます。

PR

実行結果

複数の条件を満たすデータの件数を取得できました。
※上記に記載した通り、条件を満たす件数3件です。

実行結果
実行結果
PR

参考①

複数の条件を満たすデータの合計を取得することもできます。

詳細は以下の記事をご確認ください。

PR

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「WorksheetFunctionオブジェクト」の「CountIfs」メソッド

タイトルとURLをコピーしました