Как сделать такой поиск?

[lyb4eg]

вопрос состоит в следующем, есть несколько слов, которые встречаются в строках таблицы, нужно удалить все строки, в которых есть эти слова. (Вся сложность в том, что там 12 слов и больше 220 000 строк). Наперёд благодарен!

[IgorGO]

чтобы сделать такой поиск надо правильно вопрос сформулировать...
каждое из 12 слов? или хотя бы одно? в каких ячейках строки искать?

[lyb4eg]

Добавил пример. Так вот, то что в примере выделено желтым это слова по которым нужно отыскать ячейки (так ка пример, все несколько слов и строк), ниже приведены как примерно это выглядит ...(к примеру: нужно чтобы остались только ячейки
В13 и В15)

[lyb4eg]

а, извините, и ещё, слова могут иметь разные окончания (быть в разных падежах). Потому не искать нужно не по всему слову, а только части...

[IgorGO]

маленькие/большие учитывать?
LG - коротковатое слово, как часть может встетиться во многих словах, строки будут удалены...

[IgorGO]

под Ваш пример

Sub DelIfFind()
  Dim wds() As String, r As Long, s As String, c As Long, i As Long
  c = Cells(Rows.Count, 5).End(xlUp).Row - 1
  ReDim wds(1 To c) As String
  For r = 2 To c + 1
    wds(r - 1) = UCase(Cells(r, 5))
  Next
  r = Cells(Rows.Count, 2).End(xlUp).Row
  Do
    s = UCase(Cells(r, 2))
    For i = 1 To c
      If InStr(s, wds(i)) > 0 Then Rows(r).Delete: Exit For
    Next
    r = r - 1
  Loop Until r = 1 Or Cells(r, 2) = ""
End Sub

[lyb4eg]

ОГРОМНЕЙШЕЕ спасибо IgorGO !!!! Как всегда очень помогли! Все работает!!!!

[lyb4eg]

Извините, а нельзя так сделать что бы видеть, какие именно строки удаляются? (Что бы они куда то копировались или как то выделялись...)

[EducatedFool]

Здесь есть пример макроса, который ищет, скрывает и удаляет определённые строки:
http://excelvba.ru/code/ConditionalRowsDeleting

На форме 2 кнопки - одну из которых несложно переделать для выделения строк (вместо скрытия)


Для этого замените последние 3 строки кода этим:

If Not delra Is Nothing Then    ' если подходящие строки найдены - выделяем или удаляем их
       If HideOnly Then delra.EntireRow.Select Else delra.EntireRow.Delete
    End If