- 締切済み
EXCEL VBA マクロ 特定の行削除
Excelで特定の文字例が含まれるセルが存在する行のみを自動で削除したいのですが、VBAで自動で処理する事は可能でしょうか? 1万行程度あるので、自動で実行したいと思っております。 プログラムの知識がないので、どなたかご教授下さい。
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- KenKen_SP
- ベストアンサー率62% (785/1258)
間違えた。 ×EntirRow ○EntireRow
- KenKen_SP
- ベストアンサー率62% (785/1258)
1. 特定キーワードのあるセルを見つけるには、Find または FindNext メソッドのヘルプにほぼそのままのコードが載ってます。 ※ VBA のヘルプですよ。 2. 1.で見つけたセルのある行全体を選択するには EntirRow。これも ヘルプで確認して下さい。 3. 後は Delete で削除です。
VBAなら下記のような感じでしょうか? 下記はA~K列までの行に「あ」という文字を含むセルがある場合に行 削除します。 又、下記内容をご自身で修正して使用できないのでしたらキツイかも しれませんが、まず勉強された方がよいかと思いますよ。 Sub test() Dim Mrag As Range Dim Zrow As Long For Zrow = 2 To Range("A65536").End(xlUp).Row For Each Mrag In Range("A" & Zrow & ":K" & Zrow) If Mrag.Value Like "*あ*" Then Rows(Mrag.Row).Delete Shift:=xlUp Next Next Zrow End Sub
- 1050 円(@1050YEN)
- ベストアンサー率69% (477/687)
>特定の文字例が含まれるセルが存在する行のみを削除 これはA~IV全てを対象に、特定の文字列が含まれているかをチェックするという意味ですか? もし対象となる列がある程度決まっているのであれば、ツールメニューのフィルタで絞ってあげて、抽出結果を全削除してあげるだけなのですが、、、 そうでなければ、やはりマクロかな? 一度やってみた方が覚えますよ。 VBAで記録し、修正を加えたらいいです。それでわからない部分を再度質問した方が、身になりますよ。