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 vote195 views1 answer
Sort dictionary by key vba
VBA
0 vote193 views1 answer
Excel vba hide columns
VBA
0 vote189 views1 answer
Show unix time in vba
VBA
0 vote170 views1 answer
How to self delete a vbscript file
VBA
0 vote235 views1 answer
Excel vba protect content
VBA
0 vote210 views1 answer
Excel filter by date not working vba
VBA
0 vote185 views1 answer
Test if form is open vb
VBA
0 vote199 views1 answer
Vba keep command window open
VBA
0 vote199 views1 answer
Vbnet click on dgv cells
VBA
0 vote196 views1 answer
Open file dialog in vb.net
VBA