Поиск и подстановка по условию

[Shadowmaker]

Никак не могу разобраться...
Необходимо в диапазоне данных найти определённое значение (цифру в ряду цифр) и подставить значение (слово) находящееся в другой ячейке.
Всё хорошо пока искомая цифра только 1-на, но их может быть несколько, тогда нужно чтобы слова были перечислены через запятую... как это сделать?

Во вложении файл куда предполагается воткнуть формулу... сама формула должна быть в D13, диапазон поиска D11:AP11, подставляемые слова в диапазоне D4:AP4

[nilem]

УДФ

Код Выделить Развернуть

Function ert$(s1#, rng1 As Range, rng2 As Range)
Dim i&, s$
' rng2 - подставляемые слова
If rng1.Count <> rng1.Count Then Exit Function
For i = 1 To rng1.Count
    If rng1(1, i) = s1 Then s = s & ", " & rng2(1, i)
Next
ert = Mid(s, 3)
End Function
На листе для Д13: =ert(B13;$D$11:$AP$11;$D$4:$AP$4)