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 vote234 views1 answer
Xlbycolumns is not declared
VBA
1 vote261 views1 answer
Find and replace textbox
VBA
0 vote255 views1 answer
.net crash app
VBA
1 vote241 views1 answer
Add a index column power bi
VBA
1 vote246 views1 answer
Excel vba saveas force overwrite
VBA
4 votes290 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote244 views1 answer
Excel vba remove formatting from cell
VBA
1 vote217 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote240 views1 answer
Excel vba automatic calculation
VBA
0 vote204 views1 answer
How to sort datagridview in vb.net
VBA