EXCEL VBA COUNTIFS関数　複数条件に一致するデータのセル数をカウントする。（条件に合うデータの件数集計・ワークシート関数）

EXCEL VBA COUNTIFS関数　複数条件に一致するデータのセル数をカウントする。（条件に合うセルデータの件数集計・ワークシート関数）

'
'
Sub Countifs01()  '国語・数学・英語の点数が６０点以上の人数
    
    Dim Man As Long

    Man = WorksheetFunction.CountIfs(Range("B2:B7"), ">=60", Range("C2:C7"), ">=60", Range("D2:D7"), ">=60")
    MsgBox "合格者数　" & Man & " 人"

End Sub
'

EXCEL VBA　検索条件・複数条件の設定例（以上・以下・未満・超える・ワイルドカード）

EXCEL VBA COUNTIFS関数　複数条件に一致するデータのセル数をカウントする。（ワイルドカードを使用した条件設定・複数条件）

'
'
Sub Countifs01A()    '複数条件・ワイルドカード
        
    Dim I, lRow As Long
    Dim add As String
    
    With ActiveSheet
    
        lRow = .Cells(Rows.Count, "I").End(xlUp).Row   'I列の最終行を取得します。
      
        For I = 2 To lRow  'I列の最終行まで繰り返す。（2～最終行）
            
            add = .Cells(I, "I")  'I列の区市町村を順番に代入します。
            .Cells(I, "J") = WorksheetFunction.CountIfs(.Range("F:F"), "*" & add, .Range("D:D"), ">=35", .Range("C:C"), "男")
            '集計（カウント）条件として、F列（区→市→町→村）・D列（35歳以上）・C列（男）で結果をJ列に代入
        Next I

    End With

End Sub
'

EXCEL VBA COUNTIFS関数　重複データのセル数をカウントする。

'
'
Sub Countifs02()     '登録されているメールアドレスを比較して重複しているか調べます。


    Dim I, lRow As Long
    
    With ActiveSheet
    
        lRow = .Cells(Rows.Count, "A").End(xlUp).Row   'A列の最終行を取得します。
    
            For I = 2 To lRow 'A列の最終行まで繰り返します。
    
                If WorksheetFunction.CountIf(.Range("D:D"), .Cells(I, "D")) > 1 Then
                    'D列のメールアドレス（全て）とにD列のメールアドレスを順番に比較すます。
                    .Cells(I, "G") = "データが重複"
                    '１を超える件数でデータ重複判定
                End If
        Next I
    End With
    
End Sub
'

EXCEL VBA COUNTIFS関数　複数セルに対して空白のセル・空白以外のセル（文字列入力セル）をカウントする。

'
'
Sub Countifs03()     '空白セルのカウント及び文字入力されているセルをカウントします。
    
    Dim lRow, Con01, Con02 As Long
    
    With ActiveSheet
    
    lRow = .Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行を取得
    

        .Cells(1, "E") = WorksheetFunction.CountIfs(.Range("A2:A" & lRow), "", .Range("B2:B" & lRow), "")
        'A列の「氏名」・B列の「出身地」共に空白のセルをカウントし結果をセルE1へ代入
        
        .Cells(3, "E") = WorksheetFunction.CountIfs(.Range("A2:A" & lRow), "<>", .Range("B2:B" & lRow), "<>")
        'A列の「氏名」・B列の「出身地」共に文字列が入力されているセルをカウントし結果をセルE3へ代入
        
        Con01 = WorksheetFunction.CountIfs(.Range("A2:A" & lRow), "", .Range("B2:B" & lRow), "<>")
        Con02 = WorksheetFunction.CountIfs(.Range("A2:A" & lRow), "<>", .Range("B2:B" & lRow), "")
         'A列の「氏名」・B列の「出身地」のいずれかに文字列が入力されているセルをカウントします。
           
        .Cells(2, "E") = Con01 + Con02
        '片側に入力されているカウント数をセルE2へ代入します。
    
    End With

End Sub
'

EXCEL VBA COUNTIFS関数を使いクロス集計表を作成（一覧データからマトリックス表・複数条件）

'
'
Sub Countifs04()      'データ一覧からクロス集計を作成する。


    Dim ws01, ws02 As Worksheet
    Dim lRow, Lcol As Long
    
    Set ws01 = Worksheets("一覧")
    Set ws02 = Worksheets("クロス集計")
    
    Dim I, L As Long
    
    lRow = ws02.Cells(Rows.Count, "A").End(xlUp).Row  'シート「クロス集計」A列の最終行を取得します。
    Lcol = ws02.Cells(1, Columns.Count).End(xlToLeft).Column  'シート「クロス集計」1行目の最終列を取得します。

    For I = 2 To lRow  'シート「クロス集計」A列の最終行まで繰り返す（東京⇒神奈川⇒埼玉・・・）
        For L = 2 To Lcol 'シート「クロス集計」1行名の最終列まで繰り返す（区⇒市⇒町⇒村）

            Cells(I, L) = WorksheetFunction.CountIfs(ws01.Range("D:D"), ws02.Cells(I, "A"), ws01.Range("E:E"), "*" & ws02.Cells(1, L))
            'シート「一覧」のD列「都道府県」からシート「クロス集計」のA列「都道府県」を１列目の「区市町村」に一致するデータをカウントして、値を該当セルに代入します。
        Next L
    Next I
    
End Sub
'