LookUp Value and Concatenate All Found Results

[Rick Rothstein]

I was wondering whether this code could perform the same task (or am I ovrloooking something ?)

Function search_con_snb(sp As Range, c01 As String)
    sn = sp.Value
    For j = 1 To UBound(sn)
        c02 = c02 & "|" & Join(Application.Index(sn, j), "|")
    Next
    search_con_snb = Join(Filter(Split(c02, "|"), c01), "|")
End Function

sp is the range to look in
c01 is the string to be looked for.
| is the concatenation delimiter

Our functions are quite different from each other. My function looks in a row or column and, if it finds a match, can return concatentations of values from a different range (sort of like how SUMIF works, but with text and concatenation rather than numbers and summation). Within that functionality, the UDF allows the user to control whether the search is case sensitive or not and whether the search should match the entire contents of the cells it searches or just find the text somewhere within the cell. It also allows you to filter the return list so that all items are returned from the ReturnRange or so that repeated items are listed only once. Also, the function allows the delimiter to be set by the user rather than hard-coding it into the body of the function.