0

以下に示すように、列 F のいずれかのセルの値がゼロの場合、全体を削除しようとしています。ただし、コードは 3 行目でデバッグを取得し続けます。

' DELETES ALL ROWS FROM F2 DOWNWARDS WITH THE VALUE = 0 IN COLUMN F

Last = Cells(Rows.Count, 6).End(xlUp).Row
For i = Last To 1 Step -1
    If (Cells(i, 6).Value) = 0 Then
        Cells(i, 6).EntireRow.Delete
    End If
Next i
4

1 に答える 1