行の削除

質問

列Ｋに、削除という文字が入っている場合は、その行を削除するということで、3000行くらいあるなかで3分の2程度は削除する行に該当します。
下のマクロで試してみましたが、このマクロではとっても時間がかかってしまうんですが、どうしたら早く処理できるのか教えて下さい。

Dim R As Range
Do
Set R = ActiveSheet.Range("K:K").Find(What:="削除", LookAt:=xlWhole)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop

回答No.1

noname#223623

マクロの質問ですが、ここでは手作業でやる方法を書きます。

1. 列を追加(ここではL列とします)して1から連番を入れる
2. K列で並べ替え
3. 削除の行が連続するのでまとめて選択
4. 選択行を削除
5. L列(連番を入れた列)で並べ替え

削除後、元の並び順に戻す必要がないなら1と5は不要。

それほど手間とは思えないけど、やっぱりVBAじゃないとだめなのかな？手元のPCでExcelが使えないので、マクロに関する回答は他の方にお任せします。

お礼

オートフィルタでなんとかやってみました。
ありがとうございました。