=VLOOKUP2(Лист1!$B$1:$F$15,1,B1,COUNTIF($B$1:B1,B1),5)

Function VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                    N As Long, ResultColumnNum As Long)
      Dim i As Long, iCount As Long
      Select Case TypeName(Table)
      Case "Range"
          For i = 1 To Table.Rows.Count
              If Table.Cells(i, SearchColumnNum) = SearchValue Then
                  iCount = iCount + 1
              End If
              If iCount = N Then
                  VLOOKUP2 = Table.Cells(i, ResultColumnNum)
                  Exit For
              End If
          Next i
      Case "Variant()"
          For i = 1 To UBound(Table)
              If Table(i, 1) = SearchValue Then iCount = iCount + 1
              If iCount = N Then
                  VLOOKUP2 = Table(i, ResultColumnNum)
                  Exit For
              End If
          Next i
      End Select
End Function

=ИНДЕКС(СМЕЩ(Лист1!$A$1;;;СЧЁТЗ(Лист1!$A:$A));НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(СМЕЩ(Лист1!$A$1;;;СЧЁТЗ(Лист1!$A:$A));СМЕЩ(Лист1!$A$1;;;СЧЁТЗ(Лист1!$A:$A)))=СТРОКА(СМЕЩ(Лист1!$A$1;;;СЧЁТЗ(Лист1!$A:$A);));СТРОКА(СМЕЩ(Лист1!$A$1;;;СЧЁТЗ(Лист1!$A:$A);)));СТРОКА(Лист1!A1)))