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

1 vote133 views1 answer
Sort using vba
VBA
0 vote119 views1 answer
Vba remove numbers from string
VBA
0 vote147 views1 answer
Vba cell all borders
VBA
0 vote138 views1 answer
Excel vba round to whole number
VBA
5 votes126 views1 answer
Xl vba double quotes in string literal
VBA
1 vote123 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote121 views1 answer
Excel vba remove formatting from cell
VBA
-1 vote119 views1 answer
VBA check if a cell contains a letter or string
VBA
8 votes111 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote124 views1 answer
Excel vba disable keyboard input
VBA