Excel VBA質問箱 IV

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

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


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

20694 / 76736

←次へ　｜　前へ→


	【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

0 hits

▼

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

≪