Excel VBA質問箱 IV

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

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


20690 / 76732 ←次へ | 前へ→

【61455】ループ処理
質問  HAM  - 09/5/9(土) 17:49 -

引用なし
パスワード
   A B C
10 15 20

1


1 3 2

  4


   5
2 5 8
いつも大変お世話になっております。
上記のように途中の行で全ての列の値がブランクの表があり
ブランクでない列が含まれていない行のみを削除しようろ思い
下記のMacroを組みました。
これが三列であれば下記のように簡単にできたのですが
これを20列ほどになると長くなってしまい
おまけにデータの最終行を過ぎても計算が止まらずにどこまでも頑張ってくれます。

  Endrow = Cells(Rows.Count, 1).End(xlUp).Row
  For Loop_Row = 1 To Endrow
    If Cells(Loop_Row, 1) = "" Then
      If Cells(Loop_Row, 2) = "" Then
        If Cells(Loop_Row, 3) = "" Then
          Rows(Loop_Row).Delete
          Loop_Row = Loop_Row - 1
          Loop_Count = Loop_Count + 1
        End If
      End If
    End If
  Next Loop_Row

その為、下記のように書きくわえましたが
ごてごてしておりすっきりさせたいと思いました。
これをうまく纏める方法をご教授願えませんでしょうか。

  Endrow = Cells(Rows.Count, 1).End(xlUp).Row
  For Loop_Row = 1 To Endrow
    If Loop_Count < Endrow Then
      If Cells(Loop_Row, 1) = "" Then
        If Cells(Loop_Row, 2) = "" Then
          If Cells(Loop_Row, 3) = "" Then
            Rows(Loop_Row).Delete
            Loop_Row = Loop_Row - 1
            Loop_Count = Loop_Count + 1
          End If
        End If
      End If
    End If
  Next Loop_Row

2 hits

【61455】ループ処理 HAM 09/5/9(土) 17:49 質問
【61456】Re:ループ処理 ゆみこん 09/5/9(土) 18:31 発言
【61486】Re:ループ処理 HAM 09/5/13(水) 11:07 お礼
【61457】Re:ループ処理 kanabun 09/5/9(土) 18:55 発言
【61487】Re:ループ処理 HAM 09/5/13(水) 11:08 お礼

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