Нахождение ячейки с нулем в диапазоне и удаление следующего макроса ячейки

Question

Мне нужно руководство по проблеме, которая у меня возникла. Я создал макрос, который удаляет содержимое ячейки, если оно равно нулю. Я хочу также добавить следующую ячейку справа и удалить ее вместе. Например, если ячейка "B38" равна 0, тогда удалите содержимое ячейки и содержимое "C38". Ниже то, что у меня есть, что удаляет только ячейку, которая равна нулю.

Sub FindZeros()
Dim z As Range

    Range("B38:B63").Select
    For Each z In Selection
        If z.Value = 0 Then z.delete
     Next z

End Sub

Answer 1

Используйте Resize(), также при удалении петли назад.

Sub FindZeros()
Dim z As Long

    For z = 63 to 38 step -1
        If activesheet.cells(z,2).Value = 0 Then activesheet.cells(z,2).Resize(1,2).delete
     Next z

End Sub