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 Subexcel vba combine ranges
With 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)Copyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
