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 vote131 views1 answer
How to make a if statement with vbs
VBA
0 vote106 views1 answer
Vba select file in folder
VBA
8 votes256 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote153 views1 answer
Vbnet line graph smooth lines
VBA
0 vote161 views1 answer
Excel vba copy range with filter
VBA
0 vote163 views1 answer
Excel vba calculate
VBA
15 votes230 views1 answer
Excel vba wait
VBA
0 vote169 views1 answer
Vba simple quote
VBA
1 vote169 views1 answer
Add rows to datagridview vb.net
VBA
0 vote151 views1 answer
Change whcih control a user has selected vb
VBA