Wpis z mikrobloga

@Smartek: Jedynka to numer kolumny. Dopasuj wedle potrzeb. Daj znać czy pomogło i w razie pytań.

Option Compare Text

Sub wywal_wiersze()

lRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = lRow To 1 Step -1
If InStr(Cells(i, 1), "szukany wyraz") Then
Rows(i).EntireRow.Delete
End If
Next i

End Sub