It’s not possible to get the matching data with concatenated result using a single cell worksheet function. So try the below UDF
Function Clookup(LValue As Range, LRng As Range, ResRng As Range) As String
Dim i As Long
If WorksheetFunction.CountIf(LRng, LValue.Value) Then
For i = 1 To LRng.Cells.Count
If LRng.Cells(i).Value = LValue.Value Then
Clookup = Clookup & ResRng.Cells(i).Value & ", "
End If
Next i
End If
Clookup = Trim(Clookup)
If Len(Clookup) > 0 Then
Clookup = Left(Clookup, Len(Clookup) - 1)
End If
End Function
=CLookup(LookupValue,LookupRange,ResultRange)
In C1 cell
Formula:
=clookup($A1,$A$1:$A$9,$B$1:$B$9)
Drag it down.
Refer the attached excel for details.
Bookmarks