VBA如果单元格包含特定文本，则删除整个行

Question

我正在寻找一个VBA代码，搜索字符串列表，如[bana, app, ora]如果单元格包含此内容，则删除整行。

例如:如果C6包含单词"apple">或"Application">然后第6行将被删除如果H9包含单词"橙">或"orange">或"oracle">那么第9行将被删除

我在互联网上找到的每个代码都是针对整个单元格包含指定字符串的情况，但这不是我要找的。

非常感谢你的帮助!

Answer 1

使用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