Excel総合相談所 136

[0932 名無しさん＠そうだ選挙にいこう 2019/10/03(木) 14:04:37.95]

Ｇ列の２行目以降でセルの値が１０００であれば、その行を行ごと削除したくて
これを試したのですが、エラーになります

Columns("7").AutoFilter Field:=7, Criteria1:="=1000"
Range(Range("G2"), Range("G" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter


それと同じようにＡ列の２行目以降で"５９″であれば行を削除するためにこれをつかいたいのですが
１行目がなくなり、AutoFilterが解除されないです。

Columns(1).AutoFilter Field:=1, Criteria1:="=59"
Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.

正しい書き方をおしえてください