Excel vba concatenate range

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 views10 answers
Vba excel create event log
VBA
5 votes370 views1 answer
Vba low byte from INTEGER
VBA
0 vote295 views1 answer
Vba dictionary length
VBA
1 vote335 views1 answer
How to put a gridpain in a vbox
VBA
0 vote315 views1 answer
Selecttoken em vbnet e json
VBA
0 vote310 views1 answer
Vba find sub dictionary
VBA
0 vote328 views1 answer
Remove last 8 characters from string vb
VBA
0 vote306 views1 answer
Vba sort multiple columns
VBA
0 vote355 views1 answer
Vba userform textbox wrap text
VBA
0 vote305 views1 answer
Vba type variable
VBA