|
あるシートのデータが特定の条件を満たした時、複数のシートの同行番号の行を消去するマクロがあります。コードは以下の通りです。
しかし、動作が遅く、何が原因でこうなっているのかわかっていない状態です。
他に高速で処理できる書き方をご存知の方がおりましたらどうかアドバイスのほどよろしくお願いします。
For j = 800 To 1 Step -1
If Worksheets("D1").Cells(j + 2, 130) = "" Or Worksheets("D1").Cells(j + 2, 1) < 50 Then
Worksheets("D1").Rows(j + 2).Delete SHIFT:=xlUp
Worksheets("D2").Rows(j + 2).Delete SHIFT:=xlUp
Worksheets("D3").Rows(j + 2).Delete SHIFT:=xlUp
Worksheets("D4").Rows(j + 2).Delete SHIFT:=xlUp
Worksheets("D5").Rows(j + 2).Delete SHIFT:=xlUp
Worksheets("D6").Rows(j).Delete SHIFT:=xlUp
End If
Next
|
|