Как удалить строку с текстом в одном столбце и 0 в следующем

Question

Этот код работает, если у меня есть два столбца рядом, оба с нулями в них. Но мне нужно, чтобы удалить строку, если ячейка справа имеет значение 0. Ячейка слева это слово, если это имеет значение? Подумайте о списке покупок с указанием предметов и их количества в столбце справа

Sub DeleteRow()
    Dim r As Long
    Dim LastRow As Long

    LastRow = Cells(Rows.Count, "b").End(xlUp).Row
    For r = LastRow To 1 Step -1

        If Cells(r, 1) = 0 Then
            Rows(r).Delete
        End If

    Next r
End Sub

Answer 1

Количество столбцов начинается с 1, а не с 0, поэтому оператор if должен быть:

If Cells(r, 2) = 0 Then

Это если ваш «правильный» столбец - это столбец B, что так и получается при инициализации LastRow.