excel vba concatenate range excel vba combine ranges

The solution for “excel vba concatenate range excel vba combine ranges” can be found here. The following code will assist you in solving the problem.

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 SubWith Sheet1
Set rng1 = .Range(“A1:A3”)
Set rng2 = .Range(“C1:C3”)

‘This combines the two separate ranges, so select A1, A2, A3, C1, C2, C3
set newRng = Union(rng1, rng2)

‘This combines the two ranges in the same way as when using “A1:C3”,
‘so including the cells from column B
set newRng = .Range(rng1, rng2)

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts