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

[Обыватель]

Здравствуйте, уважаемые ремесленники!

Подскажите, пожалуйста, хотябы вектор мышления в написании кода.

Пример с описанием во вложении.

Спасибо

Вложил файл

[Hugo121]

Критерии в словарь, затем перебираете ячейки, в них через сплит значения, проверка каждого по словарю, пишете в результат.
Можно в принципе оформить в UDF, и даже не плодить словари, а использовать один.
P.S. всё в файле.

[Hugo121]

Там в примере я когда наводил красоту случайно поставил этим ячейкам текстовый формат (переносом...) - поменяйте его на общий, а то не пересчитается при изменении данных.

[Обыватель]

большое спасибо!

[stasbz]

Сообщение от Hugo121

Там в примере я когда наводил красоту случайно поставил этим ячейкам текстовый формат (переносом...) - поменяйте его на общий, а то не пересчитается при изменении данных.

Приветствую, мне нужен такой же функционал.
Действительно, при изменение данных, не пересчитывает.
Выделил ячейки - формат ячеек - общий, но это результат не дало.
Подскажите, что надо сделать.
Имеется ввиду, когда вводишь другое число в массив критериев....

[Hugo121]

Сообщение от stasbz

Действительно, при изменение данных, не пересчитывает.
Имеется ввиду, когда вводишь другое число в массив критериев....

- если собираетесь менять критерии - то тогда нужно и словарь перезаполнять. Тогда один словарь не годится, придётся в каждом экземпляре делать свой - поменяйте код на этот:

Function obivatelj(r As Range, s As String)
    Dim el, out$
    Dim d As Object
        Set d = CreateObject("Scripting.Dictionary")
        For Each el In r.Value
            d.Item(Trim(el)) = 0&
        Next
    For Each el In Split(s, ";")
        If d.exists(el) Then out = out & ";" & el
    Next
    obivatelj = Mid(out, 2)
End Function

[stasbz]

[QUOTE=stasbz;1763693]

Сообщение от Hugo121

- если собираетесь менять критерии - то тогда нужно и словарь перезаполнять. Тогда один словарь не годится, придётся в каждом экземпляре делать свой - поменяйте код на этот:

Работает, спасибо.

[stasbz]

[QUOTE=stasbz;1763722]

Сообщение от stasbz

Работает, спасибо.

Воспользовался вашими координатами в подписи.

[Hugo121]

Спасибо, вижу

[stasbz]

Сообщение от Hugo121

- если собираетесь менять критерии - то тогда нужно и словарь перезаполнять. Тогда один словарь не годится, придётся в каждом экземпляре делать свой - поменяйте код на этот:

А можно ли видоизменить код, так чтобы функционал был следующий:
Есть Лист 3 с данными в виде
А В
"название 1" "23"
"название 2" "46"
"название 3" "33"
"название 4" "25"

А есть лист 1 и 2, в котором есть эти названия в случайном порядке в одном столбце. Надо обратиться к листу 3 и скопировать число для соответствующего названия и вставить его рядом с соответствующим названием в листе 1 и 2.