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 vote236 views2 answers
Vba remove line breaks
VBA
0 vote226 views1 answer
Excel vba linter
VBA
0 vote221 views1 answer
Refer to resource using string variable vb.net
VBA
15 votes453 views1 answer
Excel vba wait
VBA
0 vote218 views1 answer
Vbnet hex to binary
VBA
0 vote237 views1 answer
Weekday vba
VBA
0 vote236 views4 answers
Vgrive,deb
VBA
0 vote216 views1 answer
Send webhook vbscript
VBA
0 vote218 views1 answer
Vba parameter adodb null value
VBA
0 vote202 views1 answer
Vba code to open a file with login rights
VBA