[Pliomera]

Пусть данные расположены на 1 листе рабочей книги, в столбце A - список фамилий, в столбце B - список телефонов, в столбце C - выборка фамилий из общего списка (тоже список), в столбце D - надо получить выборку телефонов.
Поступаем просто - решаем задачу "в лоб". В редакторе VBA создаем стандартный модуль, в который пишем следующее:

Sub ChoiceFromColumne()
Dim iCount As Integer, jCount As Integer
With Sheets(1)
For iCount = 1 To .Cells(1, 1).End(xlDown).Row
For jCount = 1 To .Cells(1, 3).End(xlDown).Row
If .Cells(jCount, 3).Value = .Cells(iCount, 1) Then
.Cells(jCount, 4).Value = .Cells(iCount, 2).Value
End If
Next jCount
Next iCount
End With
End Sub

Вешаем данную процедуру например на кнопку и наслаждаемся результатом.
PS Возможно при большой длине списков будет небыстро, зато гарантированно.