Function XL2L_rangeConcat(r_Range As Range, Optional s_separator As String) As String
'Concatenate all values in a range
'Set up as a User-Defined Function (Google "UDF") in your Excel workbooks - can execute within
'cells via function =XL2L_rangeConcat(A1:A10, " ")
Dim r_cell As Range

For Each r_cell In r_Range
    XL2L_rangeConcat = XL2L_rangeConcat & r_cell.Value & s_separator
Next r_cell
End Function    'XL2L_rangeConcat
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter