関数COUNTIFを使う

トップページ（目次）

159.関数COUNTIFを使う

＜実行前後＞

→

Sub COUNTIFを使う()

    Range("C4") = WorksheetFunction.CountIf(Range("A1:A10"), "B社")

End Sub

通常のCOUNTIF関数と同じような使い方になる WorksheetFunction.CountIf(検索範囲, 検索値) 検索範囲と検索値を変数に入れるようにすれば、より柔軟なVBAになる

Sub COUNTIFを使う_検索範囲と検索値を変数()
    
    Set 検索範囲 = Range("A1:A7")

    検索値 = Range("C2")
    
    検索結果 = WorksheetFunction.CountIf(検索範囲, 検索値)
    
    Range("C4") = 検索結果

End Sub