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 vote247 views1 answer
Remove first character from string vb
VBA
3 votes234 views1 answer
Vba make long from two words
VBA
0 vote229 views1 answer
Rotate image by any angle vb.net
VBA
0 vote256 views1 answer
Excel vba urlmon
VBA
0 vote249 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote229 views1 answer
Refresh token em vb net
VBA
0 vote246 views1 answer
Find if year is leap year vb
VBA
0 vote240 views2 answers
Excel vba number format file size
VBA
2 votes249 views2 answers
Excel vba if sunday or staurday
VBA
0 vote219 views1 answer
Hello world vb.net
VBA