|
お世話になってます。
今回あるデータをまとめているのですが
A〜Qまで各項目があり
7000行ほどあるデータの処理をしています。
その中で特定の文字や数字のある行を削除するというマクロを
以下のように作ってみました。
Dim DeleteRow As Long
Range("A2").Select
Do
If ActiveCell.Value = "" Then Exit Do
DeleteRow = ActiveCell.Row
If Range("D" & DeleteRow) = "ABC"
Or Range("G" & DeleteRow) = 0
Or Range("P" & DeleteRow) <> ""
Then
Rows(DeleteRow).Delete
Else
ActiveCell.Offset(1, 0).Select
End If
DoEvents
Loop
このときに Rows(DeleteRow).Delete でなぜか1秒ほどかかり
全部やり終わるまでに結構時間がかかってしまいました。
もっと効率の良い方法がないかと考えたのですが・・・
なにか他に良い方法がありましたら教えていただきたいと思います。
|
|