Удаление всей строки на основе текста в ячейке этой строки

Я пытаюсь использовать 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*" _ 

Но это не работает. Надеюсь, кто-то может мне помочь.

Вы можете использовать «like» вместо «=».

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

Нумерация с шагом 1, от 1 до N без жесткого кодирования

Visual Basic для приложений (VBA) Count Уникальные ячейки

Суммирование диагоналей и получение максимального значения среди них

Использование UDF в Excel для обновления рабочего листа

макрос hidde в excel

Цикл через электронные таблицы Excel и приостановка каждого из них

Excel (VBA, Userform) Как я могу добавить данные из списка в конкретную ячейку?

Перемещение данных с помощью vba

Ячейки с формулами не оцениваются в Excel 2010

Кнопки Excel Form остаются в одном месте, но TopLeftCell отличается (все после того, как родительская строка не скрыта)

Проблема импорта данных электронной таблицы SQL Server и Excel с использованием SSIS

как переместить весь существующий диапазон excel в одну строку вниз, используя interop в C #

Имя переменной переменной Excel

Компилятор библиотеки MATLAB надстройки Excel

Собирайте пользовательский ввод для настройки имен листов в коде VBA

Давайте будем гением компьютера.