What is a good method of taking data out of an column and then storing that
data in to an array until it reaches the end of the column.

Hi,

Will this do?

Dim arr As Variant

arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)

For i = 1 To UBound(arr, 1)
Debug.Print arr(i, 1)
Next i

Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)=arr



"Raleigh" wrote:

What is a good method of taking data out of an column and then storing that
data in to an array until it reaches the end of the column.

Dim rng as Range, v as Variant
set rng = Range(Range("B1"),Range("B1").end(xldown))
v = rng.Value
now v is a 2D array

v(1 to #rows,1 to 1)

--
Regards,
Tom Ogilvy

"Raleigh" wrote in message
...
What is a good method of taking data out of an column and then storing
that
data in to an array until it reaches the end of the column.