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 質問
【61873】Re:消去作業について Hirofumi 09/6/10(水) 8:09 発言
【61876】Re:消去作業について Hirofumi 09/6/10(水) 9:47 回答
【61882】Re:消去作業について YOUSUKE 09/6/10(水) 13:51 お礼
【61895】Re:消去作業について YOUSUKE 09/6/11(木) 8:07 お礼
【61896】Re:消去作業について Hirofumi 09/6/11(木) 8:50 回答
【61897】Re:消去作業について Hirofumi 09/6/11(木) 10:42 発言
【61900】Re:消去作業について YOUSUKE 09/6/11(木) 14:13 お礼

20283 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free