VBA multilookup add-in

>>>>>>>>>>>  Please click here to download addin

Or  copy paste below code in your excel module

Function multilookup(lookupvalue As String, lookuprange As Range, Optional columnnumber As Integer = "2")

Dim i As Integer

Dim Result As String

For i = 1 To lookuprange.Rows.Count

If lookupvalue = lookuprange.Cells(i, 1).Value Then

Result = Result & " " & lookuprange.Cells(i, columnnumber) & ","

End If

Next i

multilookup = Left(Result, Len(Result) - 1)

End Function