Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20283 / 76732

←次へ　｜　前へ→


	【61871】消去作業について

YOUSUKE - 09/6/10(水) 1:05 -


	引用なし

	パスワード

あるシートのデータが特定の条件を満たした時、複数のシートの同行番号の行を消去するマクロがあります。コードは以下の通りです。
しかし、動作が遅く、何が原因でこうなっているのかわかっていない状態です。
他に高速で処理できる書き方をご存知の方がおりましたらどうかアドバイスのほどよろしくお願いします。

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

0 hits

▼

【61871】消去作業について YOUSUKE 09/6/10(水) 1:05

≪