View Single Post
 
Old 12-06-2017, 05:17 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

perhaps something along the lines of this
Code:
Sub RemoveKeyWordRows()

Dim lr As Long, i As Long, cel As Range, temp As String

Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).Row

For i = lr To 2 step -1
    temp = ""
        For Each cel In Range(Cells(i, "A"), Cells(i, "E"))
            temp = temp & cel.Value & " "
        Next cel
        
    '(keywords-loan,financial,bank,equity)
    If InStr(temp, "loan") > 0 Or _
       InStr(temp, "financial") > 0 Or _
       InStr(temp, "bank") > 0 Or _
       InStr(temp, "equity") > 0 _
       Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub
Instr is case sensitive.

Last edited by NoSparks; 12-06-2017 at 09:55 AM. Reason: step
Reply With Quote