Excel VBA删除包含某些字符串值的单元格

Question

我正在尝试编写一行一行的代码，以检查该行中的某一列是否包含字符串值“ Pick-Up”或“ Pickup”，以及是否确实删除了整行。我当前运行的代码会运行，并删除一些包含所述值的行。但并非所有人。

我尝试了AutoFilter方法，出于我的目的，我认为它不会起作用。

任何帮助将不胜感激。谢谢！

Sub Delete()

Dim x As Long, y As Long
Dim testString As String

y = Worksheets("Data").Range("A1", Range("A1").End(xlDown)).Rows.Count

For x = 2 To y
    testString = Worksheets("Data").Cells(x, 27).Value
    testString = Trim(testString)

    If testString Like "*Pick-Up*" Or testString Like "*Pickup*" Then
        Rows(x).EntireRow.Delete
    Else
    x = x + 1
    End If
Next x

End Sub