'=VLOOKUP3(таблица; номер_столбца_где_ищем; искомое_значение; N; номер_столбца_из_которого_берем_значение)
'Т.е. для того, чтобы найти, например, сумму третьего заказа(N) Иванова нужно будет ввести:
'=VLOOKUP3(A1:D21;1;"Иванов";3;4)

Function ВПР_3(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
                                        N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer
         
    For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                ВПР_3 = Table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
End Function