=VLOOKUPCOUPLE([4495619.xlsx]markirovka_customs_result_s_b_y!$B:$D;1;E5;3;СИМВОЛ(10))

=VLOOKUPCOUPLE_spec22([4495619.xlsx]markirovka_customs_result_s_b_y!$B:$D;1;2;E5;L5;3;СИМВОЛ(10))

Function VLOOKUPCOUPLE_spec22(Table As Variant, SearchColumnNum1 As Integer, SearchColumnNum2 As Integer, SearchValue1 As Variant, SearchValue2 As Variant, _
                    RezultColumnNum As Integer, Separator_ As String)
'Table - таблица где ищем
'SearchColumnNum1/2 - столбцы где ищем
'SearchValue1/2 - данные которые ищем
'RezultColumnNum - столбец откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце

    Dim i As Long, arr, razm As Long
    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value

    arr = Split(SearchValue2, "-")

    For razm = arr(LBound(arr)) To arr(UBound(arr))
        For i = 1 To UBound(Table)
            If Table(i, SearchColumnNum1) & "|" & Table(i, SearchColumnNum2) = SearchValue1 & "|" & razm Then
                If VLOOKUPCOUPLE_spec22 <> "" Then
                    VLOOKUPCOUPLE_spec22 = VLOOKUPCOUPLE_spec22 & Separator_ & Table(i, RezultColumnNum)
                Else
                    VLOOKUPCOUPLE_spec22 = Table(i, RezultColumnNum)
                End If
            End If
        Next i
    Next razm

    If VLOOKUPCOUPLE_spec22 = 0 Then VLOOKUPCOUPLE_spec22 = ""
    If Len(VLOOKUPCOUPLE_spec22) > 32767 Then VLOOKUPCOUPLE_spec22 = "превышено количество символов"
End Function