エクセル

質問

前回質問させていただきました件の続になります。
大まかにうまく行きそうですが、一部　￥0の部分が入っている行を削除したいのですが、うまくいきません。

データはA～Eに入力されていて、B列に数字が入っています。
B列が　0の場合その行を削除します。
If Worksheets("Sheet2").Cells(F, 2) = 0 Then
'0の場合は行を削除する
Cells(F, 1).EntireRow.Delete
End If
Fは行数をカウントするものです。
お手数ですが、よろしくお願いいたします。

回答No.2

imogasi · ベストアンサー

行の削除には、コツ（定石）があって、下の行からやって見てはどうでしょう。（Ｓｔｅｐ　－１）
Sub test02()
Dim sh1 As Object
Set sh1 = Worksheets("Sheet3")
d = sh1.Range("B65536").End(xlUp).Row
For i = d To 1 Step -1
If sh1.Cells(i, "B") = 0 Then
sh1.Rows(i).EntireRow.Delete
End If
Next i
End Sub
多分＃１でご指摘のような件が避けられます。

お礼

具体的に書いていただきありがとうございます。
できました。

回答No.3

na_kirajp

＃１です。

０で削除した場合に、削除行からしたの行数はー１されます。ただ、Fは次の値で処理をする為、削除行の直下の１行は判定されず0であっても削除されなくなっていると思います。

もっとスマートなやり方もあるかもしれませんが、
例えばこの形とか
（ｉは単に何回処理を行うかだけの変数です）

f = 1
For i = 1 To 処理する行数
If Worksheets("Sheet1").Cells(f, 2) = 0 Then
'0の場合は行を削除する
Cells(f, 1).EntireRow.Delete
Else
f = f + 1
End If
Next i
End Sub

回答No.1

na_kirajp

>Fは行数をカウントするものです。
０の行を削除したら、削除行以降は－１行されて上がってきますがFはその点考慮していますか？

補足

下記のようになって降ります。
Sub BBBB()
'
'Sheet2の表の行数を調べる
Sheets("Sheet2").Select
E = Range("A65536").End(xlUp).Row
For F = 1 To E
If Worksheets("Sheet2").Cells(F, 2) = 0 Then
'0の場合は行を削除する
Cells(F, 2).EntireRow.Delete

End If
Next

End Sub