Как в Exel найти и вывести искомые значения в отдельной ячейке?

Странная задача, наверно преподаватель не смог решить и дал ученикам задание, на двойку. ;-)
Стандартными функциями такую задачу не решить. Наверно поэтому за два часа не было вариантов решения.
И так делаем собственную функцию, т. е. функцию определенную пользователем.
Разрешаем выполнение макросов Сервис -> Макрос -> Безопасность -> Средняя.
Теперь вставляем макрос Сервис -> Макрос -> Редактор Visual Basic.
Далее в редакторе VBA в окошке VBAProject кликаем по VBAProject(имя файла) , затем Insert -> Module при этом откроется окошко вставки кода.
Код:
----------------
Function SelenA(Строка, Число As Integer) As String
For i = 1 To Строка. Count
If Строка (i) = Число Then
If s = 0 Then
SelenA = SelenA & Chr(34) & Строка (i) & Chr(34)
s = 1
Else
SelenA = SelenA & ", " & Chr(34) & Строка (i) & Chr(34)
End If
End If
Next i
End Function
----------------
Вставляем код.
Переходим в окно Excel и пробуем.
Ставим курсор на ячейку. Кликнуть по fx (вставка функции) , откроется мастер функций. В окошке категория выбрать “Определенные пользователем”. В окошке выбрать функцию, выбрать “ SelenA”.
Откроется окно ввода аргументов, в котором в качестве аргумента “Строка” диапазон ячеек с набором чисел или цифр, а поле аргумента “Число” вбить число для поиска. Нажать Ок.