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

8 votes389 views1 answer
Excel vba make a short integer from two bytes
VBA
5 votes261 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote247 views1 answer
Vbs run with cscript
VBA
3 votes249 views1 answer
Vba post request json
VBA
-1 vote268 views1 answer
Vba sendkeys
VBA
0 vote224 views2 answers
Excel vba copy paste after last row
VBA
1 vote222 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote284 views1 answer
Vba excel parser xml
VBA
2 votes229 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote247 views1 answer
Excel vba prevent saving workbook
VBA