Delete Rows using Wildcard

M

Max2073

I'm trying to make delete all rows that DO NOT contain the text "Enter" in
column F. I need to use a wildcard - as a number of cells contain additional
data.

I have tried a few different methods based upon research from this site, but
I'm am struggling to change the following, to delete rows that DO NOT
contain the required text.

For i = 672 To 1 Step -1
If Cells(i, "J") Like "*Enter*" Then Rows(i & ":" & i).Delete
Next i
 
J

Jacob Skaria

Try

Sub MyMacro()
Dim lngRow As Long
For lngRow = Cells(Rows.Count, "F").End(xlUp).Row To 1 Step -1
If Not Range("F" & lngRow) Like "*Enter*" Then
Rows(lngRow).Delete
End If
Next
End Sub
 
L

Luke M

For i = 672 To 1 Step -1
'Added the UCase argument to eliminate case-sensitivity
If Not (UCase(Cells(i, "J").Value) Like "*ENTER*") Then
Rows(i).EntireRow.Delete
End If
Next i
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Delete Rows using If and Wildcard 2
If Statement with Wildcards not Working 7
Word VBA - Delete text from bulleted paragraphs 1
Remove Identical words 0
Delete rows that contain duplicates 1
search function using wildcard 3
How can I use the * wildcard in an array formula 4
Excel VBA macro, search - accumulate - delete original 0

Top