【マクロ】オートフィルター内の全データが削除される

質問

こんにちは、質問させていただきます。宜しくお願いします。

[エクセル]
2007
[内容]
オートフィルタをかけ任意のデータのみ消したいのですが
全てのデータが消えてしまいます。
[詳細]
A1～C5までデータが入っているのもだと仮定します。
(実際には項目があってフィルタがきちんとかかるものとします。)

　　　A　　　B　　　C
-----------------------
1　　○　　　2個　　\10
2　　△　　　1個　　\5
3　　×　　　3個　　\15
4　　○　　　1個　　\20
5　　○　　　4個　　\5

オートフィルタをかけA列を基準として「○」を選択します。
そして選択した「○」を含む行(1行・4行・5行)を削除し
2行・3行目が残るようにしたいです。
その一連をマクロにして処理したいのですが…
1行から5行のすべての行データが削除されてしまいます。

＜マクロ作成＞
マクロを記憶する。
↓
手動でオートフィルタをかけ、「○」を選択して行を削除
↓
マクロの記憶を終了。
↓
マクロ文の削除する行範囲をA1からC5に書き換え
↓
マクロ実行

＜マクロ作成文＞
　Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="○"
ActiveSheet.Range("A1:C5").Select
Selection.Delete Shift:=xlUp

※エクセル2007のバージョンによっては選択した「○」のみ
削除されるPCもありましたので、何か設定があるのかな？と
思いましたが…解決しませんでした。
何か良い案があれば教えていただきたいです。
宜しくお願い致します。

回答No.1

takibo · ベストアンサー

同じ状態を再現できなかったので自信はありませんが
この１行を追加してみてください

ActiveSheet.Range("A1:C5").Select
Selection.SpecialCells(xlCellTypeVisible).Select ・・・・・この１行を追加
Selection.Delete Shift:=xlUp

意味は「選択範囲内で表示されている部分のみを選択」となります

お礼

takiboさん

回答ありがとうございます。
無事できるようになりました。解決しました。
表示されている部分のみを削除すれば問題なかったみたいです。
違うバージョンでも対応できそうです。
ありがとうございました。