Так устроит?
На листе Б:
A2
Код
=LetCounter(Т1[Фамилия И.О.];СТРОКА()-1;ПРАВСИМВ(ЯЧЕЙКА("имяфайла";$A$1);ДЛСТР(ЯЧЕЙКА("имяфайла";$A$1))-ПОИСК("]";ЯЧЕЙКА("имяфайла";$A$1))))
B2
Код
=ЕСЛИ(A2="";"";ИНДЕКС(Т1[Фамилия И.О.];A2))
C2
Код
=ЕСЛИ(A2="";"";ИНДЕКС(Т1[Дата рождения];A2))
UDF LetCounter()
[vba]Код
Public Function LetCounter(RR As Range, N As Long, Letter As String) As Variant
For Each R In RR
LetCounter = LetCounter + 1
If Left(R.Value, 1) = Letter Then
Counter = Counter + 1
If Counter = N Then Exit Function
End If
Next R
LetCounter = ""
End Function
[/vba]