Excel VBA Макросы. Как удалить строки, в которых нули, с помощью макроса?

[Море]

Нужно удалить строки, у которых в столбце A нули. Данные начинаются со строки 2.
Как это сделать с помощью макроса?

[Администратор]

Макрос

Sub Макрос()

    Dim lr As Long, i As Long
   
   
    ' Отключаем монитор, чтобы ускорить макрос.
        ' Можно ещё отключить формулы, если их много.
    Application.ScreenUpdating = False
   
    ' Поиск последней заполненной строки в столбце A.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
    ' Удаление нулевых строк.
    For i = lr To 2 Step -1
        If Cells(i, "A").Value = 0 Then
            Rows(i).Delete
        End If
    Next i

End Sub

[свернуть]

[Море]

спасибо