if vba excel

Ответ от Ottvett[гуру]
Sub Удалить ()
Dim i As Long, EndRow As Long
i = ПерваяСтрока
EndRow = ПоследняяСтрока
Do Until i > EndRow
If InStr(1, Cells(i, 3), "part") Then
Cells(i, 3).Select
Selection.EntireRow.Delete
EndRow = EndRow - 1
End If
i = i + 1
Loop
End Sub
Sub Очистить ()
Dim i As Long
For i = ПерваяСтрока To ПоследняяСтрока
If InStr(1, Cells(i, 3), "part") Then
Rows(i & ":" & i).Select
Selection.ClearContents
End If
Next i
End Sub