=VLOOKUPCOUPLE_spec(БД!A:D,1,3,$C$1&"|"&B6,4,", ")

Function VLOOKUPCOUPLE_spec(Table As Variant, SearchColumnNum1 As Long, SearchColumnNum2 As Long, SearchValue As Variant, _
                     RezultColumnNum As Long, 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

=VLOOKUPCOUPLE_spec(БД!A:D,1,3,$C$1&"|"&B6,4,", ")

=VLOOKUPCOUPLE_spec(БД!A:D;1;3;$C$1&"|"&B6;4;", ")