可視セルの削除

オートフィルタで抽出したデータを行ごと削除するのですが、
可視セルで検索をすると、1列目の見出し行も含まれてしまいます。
1列目を除くには、どのように記述したらいいのでしょうか？
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="="
Selection.SpecialCells(xlCellTypeVisible).Select
↑これで、今、削除したい部分、プラス見出し行が選択されています。

No.1 ベストアンサー 回答者： deus_ex_machina 回答日時： 2007/08/24 16:50

もっとスマートな方法もありそうですが、とりあえず。

Selection.Resize(Selection.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Select
[選択している範囲について、行数を1行減らし、1行下方にずらした範囲の、可視セルのみを選択]

この回答へのお礼

お返事遅くなってすみませんでした。
やってみたら、バッチリできました！！
ありがとうございましたー！！

お礼日時：2007/08/27 00:29