オートフィルで抽出後削除するマクロ

質問

いつもお世話になっております。

あるエクセルの表（1行目見出し、2行目以降データ）で、
A列は1～10がランダムに入っています。
（約4,000行、作業の度に変化します）
オートフィルでA列を『2以上』で抽出、
（ここまでのマクロは判ります）
見えてる行を全削除（1行目の見出しは取っておく）
はどのようなマクロを記述したらいいでしょうか？
よろしくお願いいたします。

回答No.1

toshi_2000 · ベストアンサー

Rows("2:" & Cells(1, 1).End(xlDown).Row).Select
Selection.Delete Shift:=xlUp

お礼

ありがとうございます。
うまく出来ました。