Deleting several rows with given criteria
Sub remove()
Rng = Cells(Rows.Count, "A").End(xlUp).Row
For i = Rng To 1 Step -1
With Application.WorksheetFunction
If .CountIf(Rows(i), "0100") = 1 Then
Rows(i).EntireRow.Delete
End If
End With
Next i
End Sub
On Oct 20, 1:52*pm, Rechie wrote:
I have 1 thousand lines/rows in a sheet.
I want to delete rows that contains "0100" text or maybe number.
Thanks.
Rechie
|