Pages

Tuesday, November 8, 2011

UDF to concatenate all matching values

If You want to concatenate all the matching values. Snapshot below-


Here is the code -

Function concat(Lookupvalue As String, lookuprange As Range, colindex As Integer)
Dim pan As String
Dim acell As Range
For Each acell In lookuprange
If acell.Value = Lookupvalue Then
pan = pan & "," & acell.Offset(0, colindex).Value
End If
Next
concat = Right(pan, Len(pan) - 1)
End Function

Download File

No comments:

Post a Comment