How do I take a selection of cells on the sheet and load them into an
Array in VBA?

-Steve

Dim arr

arr = Range(Cells(1), Cells(10, 10))


RBS


"brittonsm" wrote in message
...
How do I take a selection of cells on the sheet and load them into an
Array in VBA?

-Steve

One way:

Dim vArr As Variant

vArr = Range("A1:J10").Value

which loads the values in the range into a (1 To 10, 1 to 10) variant
array.



In article
,
brittonsm wrote:

How do I take a selection of cells on the sheet and load them into an
Array in VBA?

-Steve

brittonsm wrote:
How do I take a selection of cells on the sheet and load them into an
Array in VBA?

-Steve
You've received two valid answers for a Variant() array or an array
contained within a Variant variable. If that is not your situation, post
back.

Alan Beban

In the worst case, if your selection is a pile on non-contiguous cells, then:

Sub sel_to_array()
Dim ar() As Variant
ReDim ar(1 To Selection.Count) As Variant
i = 1
For Each r In Selection
ar(i) = r.Value
i = i + 1
Next
End Sub
--
Gary''s Student - gsnu2007j


"brittonsm" wrote:

How do I take a selection of cells on the sheet and load them into an
Array in VBA?

-Steve