“rango de concatenate de Excel VBA” Código de respuesta

Excel VBA Combine rangos

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)
VasteMonde

rango de concatenate de Excel VBA

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
VasteMonde

Respuestas similares a “rango de concatenate de Excel VBA”

Preguntas similares a “rango de concatenate de Excel VBA”

Más respuestas relacionadas con “rango de concatenate de Excel VBA” en VBA

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código