VBA DO LOOP Do loopをつかって行を空欄まで見に行き、ある条件の時は行を削除します。

Question

VBA DO LOOP

Do loopをつかって行を空欄まで見に行き、ある条件の時は行を削除します。ただdo loopでさくじょすると行が動くので(四行目を削除すると五行目が四行目になり、四行目が条件対象であっても四行目はループしているため、プログラムが見に行かない。)うまくいきません。何か他の方法でうまくいきませんか？

siffon9 · Accepted Answer

No.2さんと同じ考えかたです。
A列をA1から見ていって、1の行を削除します。

Sub Sample()
　　Dim row As Long
　　
　　row = 1
　　Do While Cells(row, 1).Value <> ""
　　　　If Cells(row, 1).Value = 1 Then
　　　　　　Cells(row, 1).EntireRow.Delete
　　　　　　row = row - 1
　　　　End If
　　　　row = row + 1
　　Loop
End Sub

yokomaya · Answer

＞したから見に行くのはdo loopでできるのでしょうか？
Do Loopで
今開始行は何行目からか判らないので仮にｎとすると
最終行を空欄で判断していると思いますが
それを最初に判断することが必要となりますよね。

これが仮にＡ列だとすると
Range("A10000").End(xlup).Row
で最終行が得られます。1万行超えてるデータはダメですよ。
普通はそんなに沢山入力しないと思って、手抜きですが。

ここから初めて行を今は一つずつ増やしていると
思いますが一つづつ減らす処理にします。
数字がｎになって削除の処理が終わっているタイミングが
Ｌｏｏｐを抜けるタイミングです。

Ｄo　またはLoopの行に記述するなら n-1に
なったらってことになりますね、多分。

tom04 · Answer

こんばんは！

他の方々がおっしゃっているように、行の削除（挿入）は最終行から上に遡る方法が無難です。
その方法はすでに回答が出ていますので、一気に削除する方法です。
質問文ではどこの列が基準か判らないので、A列が空白の行を削除するコードにしてみました。
「ある条件」とは何かが判らないのでとりあえずA列の空白セルとしています。

Sub Sample1()
    Dim i As Long, myRng As Range
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Cells(i, "A") = "" Then
                If myRng Is Nothing Then
                    Set myRng = Cells(i, "A")
                Else
                    Set myRng = Union(myRng, Cells(i, "A"))
                End If
            End If
        Next i
            If Not myRng Is Nothing Then
                myRng.EntireRow.Delete
            End If
End Sub

こんな感じでも大丈夫だと思います。m(_ _)m

t_fumiaki · Answer

どうしてもDoを使いたいなら

Dim CNT As Long
Dim END1 As Long
Dim Sh As Worksheet
Set Sh = ActiveSheet
END1 = Sh.Range("A65536").End(xlUp).Row

Do While CNT =< END1
If Sh.Range("A" & CNT).Value = 1 Then
Sh.Range(CNT & ":" & CNT).Delete
END1 = END1 - 1
CNT = CNT - 1
End If
Next CNT
Application.StatusBar = False
End Sub

なお、END1 = Sh.Range("A65536").End(xlUp).Rowは
65536行目から上に辿って、最初に見付かった空欄で無い行番号をEND1に格納する処理。

t_fumiaki · Answer

最初の空欄までに数を見つけてDoループの終端数とする。
例えば、END1 = Sh.Range("A65536").End(xlUp).Row
でEND1が終端。

途中で削除した時、Doループの終端数とループ変数を-1する。

これで上手く行く。

下は例
    Dim CNT As Long
    Dim END1 As Long
    Dim Sh As Worksheet
       
    Set Sh = ActiveSheet
    END1 = Sh.Range("A65536").End(xlUp).Row
    
    For CNT = 2 To END1
     If Sh.Range("A" & CNT).Value = 1 Then
      Sh.Range(CNT & ":" & CNT).Delete
      END1 = END1 - 1
      CNT = CNT - 1
     End If
    Next CNT
Application.StatusBar = False
End Sub

fujillin · Answer

こんにちは

削除を伴う処理の場合、ご質問のような問題が起きます。
削除したときは、その行数だけ対象行を戻すような処理をいれても良いのですが、ややこしいですね。

それなので、小さい行番号から大きい行番号へと処理をせずに、大きい行番号から小さい行番号へと降順に処理ををするのがコツと言えばコツです。
この方法ですと、ご質問のようなことはおきませんので、そのまま順に続けて処理を行えばよくなります。
（For ～　Next などで処理する場合も同様です）

2014itochan · Answer

一行ずつ　確認のため行を下げてるなら、その行のカウンターと言うか、変数が有るはず（ROW()の代わり）、作業した時だけ、その作業行を　-1　すれば良いだけじゃないのかな？

Zincer · Answer

逆転の発想
そういう場合は、下から操作していくとうまくいきますよ。

VBA DO LOOP Do loopをつかって行を空欄まで見に行き、ある条件の時は行を削除します。

No.2さんと同じ考えかたです。

＞したから見に行くのはdo loopでできるのでしょうか？

こんばんは！

どうしてもDoを使いたいなら

最初の空欄までに数を見つけてDoループの終端数とする。

こんにちは

一行ずつ 確認のため行を下げてるなら、その行のカウンターと言うか、変数が有るはず（ROW()の代わり）、作業した時だけ、その作業行

逆転の発想

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

一行ずつ　確認のため行を下げてるなら、その行のカウンターと言うか、変数が有るはず（ROW()の代わり）、作業した時だけ、その作業行