Вывод значения соответствующее данным из таблицы другого листа Exel

[Виктор Вектор]

Приветствую всех!

Пожалуйста, помогите с опросом:
Дано:
- Два листа в эксель.
- в каждом по таблице.
- Лист 1 состоит из таблицы ячеек А и B.
- Лист 2 состоит из таблицы с большим количество информации.
* Таблица на листе 2 содержит разное количество данных для каждого сопоставляемого значения. Самая длинная последовательность - 500 значений.

Что необходимо:
При вводе значения в ячейку А листа 1, формула в ячейке B листа 1 ищет значения в таблице листа 2 и выводит значение ячейки А листа 2.
При невозможности найти значение, должно выводиться значение N/A
Я понимаю, что необходимо использовать функцию ВПР. Но не понимаю, как......

[kuklp1]

UDF:

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

Public Function FindProd(str$, Rng As Range)
    Dim r As Range
    Set r = Rng.Find(str, , , xlWhole, , , 0)
    If r Is Nothing Then FindProd = "#N/A": Exit Function
    FindProd = Rng.Cells(Rng.Find(str, , , xlWhole, , , 0).Row - Rng.Row + 1, 1)
    FindProd = IIf(str <> "", FindProd, "")
End Function

[iron priest]

...

[Виктор Вектор]

kuklp1, iron priest, спасибо!
Ребята, вы мне очень помогли. Всю голову сломал!