[URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22      Function   VLOOKUPCOUPLE2(Table   As   Variant  , SearchColumnNum   As   Integer  , SearchValue   As   Variant  , _                              RezultColumnNum   As   Integer  , Separator_   As   String  )    'Table - таблица, где ищем    'SearchColumnNum - столбец, где ищем    '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   UCase(Table(i, SearchColumnNum))   Like   UCase(SearchValue)   Then                  If   VLOOKUPCOUPLE2 <>   ""   Then                      VLOOKUPCOUPLE2 = VLOOKUPCOUPLE2 & Separator_ & Table(i, RezultColumnNum)                  Else                      VLOOKUPCOUPLE2 = Table(i, RezultColumnNum)                  End   If              End   If          Next   i          If   VLOOKUPCOUPLE2 = 0   Then   VLOOKUPCOUPLE2 =   ""    End   Function