if vba excel

Ответ от Ottvett[гуру]
Оператор If Then в VBA Excel выполняет действия только при истинности заданного условия. Базовый синтаксис: если условие верно, исполняется блок кода, завершаемый End If. Пример рабочего макроса для удаления строк, содержащих текст part в третьем столбце:Sub УдалитьСтроки()
Dim i As Long, EndRow As Long
i = 1
EndRow = Cells(Rows. Count, 3). End(xlUp). Row
Do Until i > EndRow
If InStr(1, Cells(i, 3). Value, "part") > 0 Then
Cells(i, 3). EntireRow. Delete
EndRow = EndRow - 1
Else
i = i + 1
End If
Loop
End SubФункция InStr ищет совпадение. При удалении строки индекс i не увеличивается, а EndRow уменьшается, что предотвращает пропуск строк при автоматическом сдвиге данных вверх.