Anyone know how to copy a Range of Cells into an Array?

[GeorgeAdamson]

Is there a command to do it or do I have to loop through the Range adding each cell value to the array one by one?

Thanks

 

[dk]

It's fairly straightforward to assign the cells in a range to an array. It's also a very quick way of working with large amounts of worksheet data.

Sub GetArray()
Dim vArray()
vArray = Range("A1:E10")
'vArray now contain a 10 x 5 array of values
'You can work with it and then assign it back to a range - this is much quicker
'than populating cells one at a time through a loop e.g.

Range("F1:J10").Value = vArray

End Sub


HTH,
D

 

[GeorgeAdamson]

I knew there had to be simple way. and this really is simple! Nice one, thanks DK