Excel vba join variant array

Public Function ConcatenateRange(pRange As Range, Optional pDelimiter As String = " ") As String
    ConcatenateRange = Join(WorksheetFunction.Transpose(pRange.Value), pDelimiter)
End Function

Sub TestMe()
    Dim r As Range
    Set r = ThisWorkbook.Worksheets(1).Range("A1:A10")
    MsgBox ConcatenateRange(r)
End Sub

Similar codes

0 vote235 views1 answer
Vbs exec hidden
VBA
0 vote206 views1 answer
Excel vba extract year
VBA
0 vote228 views1 answer
Vba remove last vbcrlf
VBA
0 vote224 views1 answer
Vba remove the first character of string
VBA
0 vote221 views1 answer
Excel vba round to whole number
VBA
0 vote233 views1 answer
Pivot data source not accepting table named range vba
VBA
1 vote239 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
5 votes217 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote214 views1 answer
Vbnet check if sting contians symbols
VBA
2 votes208 views1 answer
Excel vba check if key is in collection
VBA