Удалить строки таблицы по встречающимся словам

Posted by Chas under Basic

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

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

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?
• Объединение ячеек со сдвигом вверх?