Страницы: 1
RSS
Как массово удалить слова из списка в заданном столбце?
 
Всем доброго дня!

В одном столбце имеются слова и словосочетания, из которого необходимо удалить слова, заданные в другом списке.
Через ПОИСК и ЗАМЕНА делать подобное слишком трудозатратно.
Есть ли способ автоматического удаления?

Файл прилагаю.
Лист Список нужно очистить от слов, указанных на листе Слова.

Буду благодарен всем желающим помочь в этой непростой задаче!
 
Код
Option Explicit
Function ClearWords(s As String, rWords As Range) As String
Static RX As Object
    If RX Is Nothing Then
        Set RX = CreateObject("VBScript.RegExp")
        RX.Global = True
        RX.IgnoreCase = True
    End If
RX.Pattern = "\b" & Replace(Join(Application.Transpose(rWords), "|"), ".", "\.") & "\b"
ClearWords = Application.Trim(RX.Replace(s, ""))
End Function
 
Тимофеев, от всей души спасибо!
Страницы: 1
Наверх