フィルター後削除

2列目でフィルターをかけて、"佐藤"を抽出。

見出し行以外を削除する。（行を一行下にずらす）

フィルターを解除する。

With Range("A1").CurrentRegion

　 .AutoFilter field:=2, Criteria1:="佐藤"

　.Offset(1, 0).EntireRow.Delete

　.AutoFilter

End With

withを使用しない場合

Range("A1").AutoFilter Field:=2, Criteria1:="佐藤"

Range("A1").CurrentRegion.Offset(1, 0).EntireRow.Delete

Range("A1").AutoFilter

加工前   

加工後（佐藤行のみ削除された）

 抽出例

100以上のデータ

Criteria1:=">=100"

空白

Criteria1:="="

空白以外

Criteria1:="<>"

1以上3未満

Criteria1:=">=1" , Operator:= xlAnd, Criteria2:="<3"

With で Worksheet を指定。Range("A1")以降は "_" で改行。

With Worksheets("Sheet1")
　.Range("A1").AutoFilter _
　　Field:=3, _
　　Criteria1:=">=1", Operator:=xlAnd, _
　　Criteria2:="<3"
End With