Здравствуйте, господа и дамы, знатоки и не очень
Есть столбец со словосочетаниями (Поисковые запросы) Лист1, столбец A.
Есть столбец со словами (Список минус слов) Лист2, столбец A.
Нужно удалить все строки со словосочетаниями, содержащие хотя бы одно из слов списка, без учета регистра (в идеале но не обязательно).
пример.xlsx (15.95 КБ) Искал везде где можно, но то что находил не получалось заставить работать. Самое близкое что нашел по данной задаче:
[
Скрытый текст |
|---|
COLOR=#626262]УДАЛЕНИЕ СТРОК НА ОСНОВАНИИ СПИСКА ЗНАЧЕНИЙ(МНОЖЕСТВЕННЫЕ КРИТЕРИИ)Иногда бывают ситуации, когда необходимо удалить строки не по одному значению, а по нескольким. Например, если строка содержит или Итог или Отчет. Ниже приведен код, при помощи которого можно удалить строки, указав в качестве критерия диапазон значений. Т.е. указав на "Лист2" в столбце А(начиная с первой строки) несколько значений - они все будут удалены. Если лист называется иначе(скажем "Соответствия") в коде необходимо будет "Лист2" заменить на "Соответствия"[/COLOR]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub Del_Array_SubStr()
Dim sSubStr As String 'искомое слово или фраза
Dim lCol As Long 'номер столбца с просматриваемыми значениями
Dim lLastRow As Long, li As Long
Dim avArr, lr As Long
lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1))
If lCol = 0 Then Exit Sub
Application.ScreenUpdating = 0
lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
'Получаем с Лист2 значения, которые надо удалить в активном листе
With Sheets("Лист2") 'Имя листа с диапазоном значений на удаление
avArr = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
'удаляем
For lr = 1 To UBound(avArr, 1)
sSubStr = avArr(lr, 1)
For li = lLastRow To 1 Step -1
If CStr(Cells(li, lCol)) = sSubStr Then Rows(li).Delete
Next li
Next lr
Application.ScreenUpdating = 1
End Sub |
|
Помогите пожалуйста с задачей, уверен для знатоков это не составит особого труда, а я уже неделю почти не могу решения найти. Заранее благодарю!
