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 vote214 views1 answer
Programmatically copy data from one workshet to another excel
VBA
1 vote228 views1 answer
Perform http request in vb.net
VBA
1 vote1.9K views1 answer
Vba Remove Case Sensitivity
VBA
0 vote244 views1 answer
Vba dictionary clear
VBA
1 vote202 views1 answer
Random number generator vb.net
VBA
1 vote191 views2 answers
Vba remove first 2 characters from string
VBA
0 vote207 views1 answer
Vba sort the data Z to A
VBA
0 vote212 views1 answer
Vba sort multiple columns
VBA
0 vote201 views1 answer
Vba run command
VBA
1 vote219 views1 answer
Extract the second word in a text in excel
VBA