エクセルでとある文字列にぶつかったらその行を削除

質問

エクセルのマクロで質問です。
現在A1からZ2000くらいまですべて何がしかの文字列が埋まっています。
I列に、とある文字列（例えば「AAA」とします）がある場合はその文字列の行を削除したいと考えています。
ルーチンワークのため、手作業でこの作業をするとかなり大変なので、マクロにしてやりたいと考えています。
しかし、VBを組んだりしたことがないし、簡単なマクロの設定しかやったことがありません。
どのような操作をすればいいか、ご教示ください。

お願いいたします。

回答No.2

zap35 · ベストアンサー

＃０１さんの回答のようにオートフィルタが簡単だと思いますが、マクロがよければ…

以下はＩ列のデータに"AAA"の文字列が含まれるとき、その行を削除するマクロです。（"ZAAA"、"AAAR"等も行削除対象）

Sub Macro2()
Dim r As Range
　Application.ScreenUpdating = False
　Set r = ActiveSheet.Columns("I").Find("AAA", LookIn:=xlValues)
　Do While Not r Is Nothing
　　r.EntireRow.Delete
　　Set r = ActiveSheet.Columns("I").Find("AAA", LookIn:=xlValues)
　Loop
　Application.ScreenUpdating = True
End Sub

マクロはALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はALT＋F8を押して、マクロ名を選択します。

お礼

ありがとうございます。
なるほどそれほど長いコードにはならないんですね。
活用させていただきます。

回答No.1

noname#62235

マクロを組んでもいいのですが、「オートフィルタ」を使うと簡単です。

１）Ａ１行にタイトル行を挿入します
２）Ａ１行に何がしか文字列を入れます（１，２，３，４・・・でもかまいません）
３）Ａ１：Ｚ２００１を選択し、「データ」メニューから「フィルタ」→「オートフィルタ」を選びます。
４）Ｉ１のセルにできている下向きの三角ボタンをクリックし、「オプション」を選びます
５）条件選択画面が出てきますので、文字列に「AAA」を入力、条件「を含む」を選びます
６）対応する行だけが抽出されますので、全体を選択して削除します。
７）「データ」メニューから「フィルタ」→「オートフィルタ」でオートフィルタを解除します。
これで対応する行だけ削除されると思います。

お礼

そのとおりでした。
ありがとうございます。