フィルター以上や以下などの条件でかける

トップページ（目次）

163.フィルター以上や以下などの条件でかける

＜実行前後＞

→

Sub ◯◯以上or以下でフィルターをかける()

                                    '2はB列のこと
    Range("A1:B5").AutoFilter Field:=2, Criteria1:=">=10"

End Sub

AutoFilter 2 は2列目（B列） >=10 で 10以上 <=10 で 10以下 >10 で 10より上 <10 で 10より下最終行と指定数を変数に入れる場合と、フィルターはその都度解除しておいた方が無駄なエラーを抑制できる

Sub ◯◯以上or以下でフィルターをかける_変数()

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    指定数 = 10

    ActiveSheet.AutoFilterMode = False 'フィルター解除
    
    Range("A1:B" & 最終行).AutoFilter Field:=2, Criteria1:=">=" & 指定数

End Sub