Concatenated range to array

[Philippe.T]

Hello all,

The following allows me to populate an array with values from a range

Dim ARR1As Range
Set ARR1 = range("D2:D10")

I was wondering if there is a way to concate a range and then populate the array
Not correct but something like

Dim ARR2As Range
Set ARR2= range("A2:D10")

 

[mohadin]

Hi
Try this

Sub test2()
    Dim arr2 As Variant
    ReDim a(1 To 10)
    Dim i
    For i = 2 To 10
        a(i) = Join(Application.Transpose(Application.Transpose(Range("a" & i & ":D" & i))), ",")
    Next
End Sub