VBA如果单元格包含特定文本然后删除整行

Question

I'm looking for a VBA code that search a list of string like [bana, app, ora] and delete the entire row if the cells contains this.

For example: If C6 contains the word "apple" or "Application" then the row 6 will be deleted If H9 contains the word "Orage" or "orange" or "oracle" then row 9 will be deleted

Every code I found on internet is for the situation when the entire cell contains the specified string but it's not what I'm looking for.

Thank you so much for you're help!

Answer 1

Use instr() :

Sub deleteTheWholeRow()

    For Each rngCell in Sheets("Somesheet").Range("A1:A50")
        If instr(1, "apple", rngCell.value) Then
            rngCell.entireRow.Delete
        End If
    Next rngCell

End Sub