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

    Dim i As Long
    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
    For i = 1 To UBound(Table)
        If Table(i, SearchColumnNum1) & "|" & Table(i, SearchColumnNum2) = SearchValue Then
            If VLOOKUPCOUPLE_spec <> "" Then
                VLOOKUPCOUPLE_spec = VLOOKUPCOUPLE_spec & Separator_ & Table(i, RezultColumnNum)
            Else
                VLOOKUPCOUPLE_spec = Table(i, RezultColumnNum)
            End If
        End If
    Next i
    If VLOOKUPCOUPLE_spec = 0 Then VLOOKUPCOUPLE_spec = ""
End Function