How Do You Take Data Off A Sheet and Store It In An Array

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" <[email protected]> wrote in message
news:[email protected]...
> 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.