Vba 基于该行单元格中的文本删除整行

我正在尝试使用VBA，以便根据同一行的单元格的大致内容删除整行。我找到了这篇文章的确切内容：

Sub DeleteRowBasedOnOwner()
    Dim RowToTest As Long
    For RowToTest = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
        With Cells(RowToTest, 5)
            If .Value = "John" _
            Or .Value = "Jerry" _
            Or .Value = "Steve" _
            Or .Value = "Robert" _
            Or .Value = "Sarah" _
            Or .Value = "Leonard" _
            Or .Value = "Darryl" _
            Or .Value = "Mike" _
            Or .Value = "Martin" _
            Then _
            Rows(RowToTest).EntireRow.Delete
        End With
    Next RowToTest
End Sub

然而，通配符在这里似乎不起作用。例如，我尝试过：

If .Value = "Jo*" _
Or .Value = "*err*" _

但这是行不通的。我希望有人能帮我。你可以用“喜欢”而不是“=”

---

使用运算符。所以，第一个条件等同于If.Value2，比如“Jo*”等等，还有其他条件。呃。。。真不敢相信我居然没想到。非常感谢，它成功了。祝你有美好的一天。

 If .Value like "Jo*" _
     Or .Value like "*err*" _