Синтаксис VBA

[lalike]

не подскажете, как прописать:
начало
переменные
Х 'порядковый номер от 2 до бесконечности
Х=2
Начало цикла
Для Х+1
Если Столбец 4 Строка Х не равен 0,
то удалить строку
Конец цикла
конец прграммы

Большое спасибо!

[SAS888]

Вероятно так:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Cells(i, 4) <> 0 Then Rows(i).Delete
    Next
End Sub

Но, во-первых, это очень медленно. Во-вторых, такой код будет корректно работать до последней заполненной строки в столбце "D". А нужно определить последнюю заполненную ячейку в Вашей таблице. Как это сделать, Вам виднее.

Поэтому, я бы поступил по другому. Вообще без применения каких-либо циклов:

Sub Main2()
    Dim x As Range: Set x = [D:D].Find(what:=0, LookAt:=xlWhole)
    If x Is Nothing Then Rows("2:" & Rows.Count).Delete Else [D2:D65536].ColumnDifferences(x).EntireRow.Delete
End Sub