функции сцепить с условием

[dzaymko]

функции сцепить с условием
так есть а над так
1-а 1-а б
1-б 2-с и у
2-с 3-д
2-и
2-у
3-д

[Aleksandr H.]

Function myConcat(what As String, rng As Range)
    If rng.Columns.Count < 2 Then myConcat = "Error!"
    Dim i As Integer
    myConcat = ""
    For i = rng.Row To rng.Row + rng.Rows.Count - 1
        If rng(i, 1) = what Then myConcat = myConcat & " " & rng(i, 2)
    Next
End Function

[IgorGO]

Sub MakeNewTbl()
  Dim r1&, r2&, c%
  r1 = 1: r2 = 1
  Do While Not IsEmpty(Cells(r1, 1))
    c = WorksheetFunction.CountIf(Columns(1), Cells(r1, 1)):   Cells(r2, 4) = Cells(r1, 1)
    if c > 1 then Cells(r2, 5) = Join(WorksheetFunction.Transpose(Cells(r1, 2).Resize(c, 1))) else Cells(r2, 5) = Cells(r1, 2)
    r1 = r1 + c: r2 = r2 + 1
  Loop
End Sub

[Hugo121]

Для комплекта

=VLOOKUPCOUPLE($A$1:$B$10,1,E1,2," ")

код этой UDF есть на форуме (и других форумах).
И ещё есть аналогичная, но чуть более навороченная СЦЕПИТЬЕСЛИ()