With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlManual
With ThisWorkbook.Worksheets(1)
iLastRow& = .Cells(65536, 1).End(xlUp).Row
For iRow& = iLastRow& To 1 Step -1
If CStr(.Cells(iRow&, 1).Value) = "0" Then _
.Rows(iRow&).Delete
Next
End With
.Calculation = xlAutomatic
.DisplayAlerts = True
.ScreenUpdating = True
End With
Помогите организовать цикл для удаления строк
Проверка если A1 (2,3,... и так далее)=0 то удалить эту строчку если нет то ничего не делать. Помогите очень нужно.
Код:
Только для удаления подобных строк использовать VBA вовсе не обязательно, так как для решения поставленного вопроса достаточно просто отфильтровать столбец, выбрав в качестве критерия равно 0, а затем, при наличии нулевых значений, выделить и удалить строки.