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 vote176 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote178 views1 answer
Vbscript abs
VBA
1 vote184 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote160 views1 answer
Vbnet add new ecel sheet
VBA
0 vote182 views1 answer
Open file dialog in vb.net
VBA
0 vote184 views1 answer
Write listbox to text file vb.net
VBA
1 vote155 views1 answer
How to do error handling in access vba
VBA
1 vote179 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
0 vote188 views1 answer
Vba foreach 2d array
VBA
0 vote189 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA