こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

[エクセル]
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もありましたので、何か設定があるのかな?と
思いましたが…解決しませんでした。
何か良い案があれば教えていただきたいです。
宜しくお願い致します。

投稿日時 - 2009-11-12 15:53:19

QNo.5442250

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2009-11-12 16:37:19

お礼

takiboさん

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

投稿日時 - 2009-11-12 17:40:39

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問