Сообщество Чайников

Вопрос

Необходимо удалить в таблице все строки, где в шестом столбце стоит "0". Как это можно реализовать через цикл?

Ответ

Если у тебя таблица непрерывная (без пустых строк, иначе придется еще одно условие задавать), то делается это так:


Sub Test()
Dim i As Long
Application.ScreenUpdating = False
Лист1.Activate
[F1].Select
x = ActiveCell.Offset(1000, 0).End(xlUp).Row
For i = x To 1 Step -1
If Cells(i, 6) = 0 Then
Cells(i, 6).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Из конференции Expert_FAQ