関数COUNTIFで1以上のみフィルターをかける

トップページ（目次）

141.関数COUNTIFで1以上のみフィルターをかける

＜実行前後＞

→

Sub COUNTIFで1以上のみフィルターをかける()

    If WorksheetFunction.CountIf(Columns("A:A"), "A社") >= 1 Then
    
        Range("A1:B8").AutoFilter Field:=1, Criteria1:="A社"
    
    End If

End Sub

WorksheetFunction.CountIf を使用することでVBA内でCOUNTIFを扱えます。 AutoFilter Field:=1 は 1=A列ですフィルターをかける前に、Countifで値が存在するのか先に確認したほうが、無駄な処理とエラーを事前に回避できます。