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 vote157 views1 answer
Average vba
VBA
1 vote156 views1 answer
Vbscript convert ascii code to character
VBA
0 vote150 views1 answer
Excel vba Column Name to Column Number
VBA
12 votes276 views1 answer
Excel vba write string to text file
VBA
0 vote150 views1 answer
Compare dates vb
VBA
0 vote165 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote137 views1 answer
Vba argument is set
VBA
1 vote149 views1 answer
Excel vba last column in range
VBA
0 vote148 views1 answer
Add items to combobox vb.net
VBA
1 vote181 views1 answer
Excel vba convert text YYYYMMDD to date
VBA