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

Question

我正在寻找一个 VBA 代码，它可以搜索像[bana, app, ora]这样的字符串列表，如果单元格包含它，则删除整行。

例如：如果 C6 包含单词“apple”或“Application” ，则第 6 行将被删除 如果 H9 包含单词“Orage”或“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