Excel VBA質問箱 IV

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

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


13227 / 76733 ←次へ | 前へ→

【69012】行の削除(大量)
質問  列行  - 11/5/10(火) 11:54 -

引用なし
パスワード
   お世話になってます。
今回あるデータをまとめているのですが
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秒ほどかかり
全部やり終わるまでに結構時間がかかってしまいました。
もっと効率の良い方法がないかと考えたのですが・・・
なにか他に良い方法がありましたら教えていただきたいと思います。
2 hits

【69012】行の削除(大量) 列行 11/5/10(火) 11:54 質問
【69013】Re:行の削除(大量) kanabun 11/5/10(火) 12:57 発言
【69014】Re:行の削除(大量) 列行 11/5/10(火) 13:22 回答
【69015】Re:行の削除(大量) UO3 11/5/10(火) 13:35 回答
【69016】Re:行の削除(大量) Abebobo 11/5/10(火) 14:15 発言
【69018】Re:行の削除(大量) 列行 11/5/10(火) 16:40 お礼
【69019】Re:行の削除(大量) Abebobo 11/5/10(火) 19:04 発言
【69021】Re:行の削除(大量) UO3 11/5/10(火) 21:16 発言
【69026】Re:行の削除(大量) Abebobo 11/5/10(火) 23:18 発言
【69017】Re:行の削除(大量) 列行 11/5/10(火) 16:38 お礼
【69029】Re:行の削除(大量) 列行 11/5/11(水) 10:11 お礼

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