[Alex Dark]

Решение элементарное как ясный день :-)

аттач не аттачится а так, на макросе

по условию у нас 2 листа
"Лист 1":
1 колонка номер (то есть что ищем)
2 колонка функция "=My_Seek(A1)")
параметр - значение первой колонки

"Лист 2" справочник
1 колонка номер (то есть ключ)
2 название (то есть что возвращаем при помощи функции)

[COLOR=Red]
Public Function My_Seek(par)
Dim Лист
My_Seek = "!!! Не найден"
Set Лист = ActiveWorkbook.Sheets("Лист2")
i = 2
Do While True
If IsEmpty(Лист.Cells(i, 1).Value) Then
Exit Do
End If
If UCase(Лист.Cells(i, 1).Value) = UCase(par.Value) Then
My_Seek = Лист.Cells(i, 2)
Exit Do
End If
i = i + 1
Loop
End Function
[COLOR=Black]