really simple array question

[Alisa]

I don't know why I can't figure this out - it seems like it should be so simple.
I have a range of cells selected (for instance, c1 to c5). I want the value of each cell to be an element of an array. How is this done?

Thanks for any help, Alisa

 

[Zack Barresse]

Hi Alisa,


Here's one way ...

Option Explicit

Sub ArrayExample()
    Dim arr(1 To 5) As Variant, i As Long
    For i = LBound(arr) To UBound(arr)
        arr(i) = Range("C" & i).Value
    Next i
End Sub

 

[Scott Huish]

Here's another,

From a selection:

Sub activeArray()
Dim x()
x = Selection.Value
End Sub

or from a range specified in code:

Sub activeArray()
Dim x()
x = Range("C1:C5").Value
End Sub

This will create a two-dimensional array, first dimension is the row # and the second dimension the column #.

 

[Alisa]

Thanks,
Alisa