Filling an array with ranges
 

Hi,

Im trying to write the first two rows and the last row of a range to a
two-dimensional array€¦ Can this be done w/o looping?

Thanks!

Dim FlashArr()
Set wkb = ActiveWorkbook

Set rng = Range(€œD4€�)
CellsAcross = Range(rng, rng.End(xlToRight)).Columns.Count

ReDim FlashArr(1 To 3, 1 To CellsAcross)
FlashArr = rng.Resize(2, CellsAcross)
FlashArr = Range(rng.End(xlDown), rng.End(xlDown).End(xlToRight))
--
______
Regards,
Greg

Filling an array with ranges
 

Greg wrote:
Hi,

Im trying to write the first two rows and the last row of a range to a
two-dimensional array€¦ Can this be done w/o looping?

Thanks!

Dim FlashArr()
Set wkb = ActiveWorkbook

Set rng = Range(€œD4€�)
CellsAcross = Range(rng, rng.End(xlToRight)).Columns.Count

ReDim FlashArr(1 To 3, 1 To CellsAcross)
FlashArr = rng.Resize(2, CellsAcross)
FlashArr = Range(rng.End(xlDown), rng.End(xlDown).End(xlToRight))

Sub abtest3()
Dim FlashArr

Set rng = range("D6")
CellsAcross = range(rng, rng.End(xlToRight)).Columns.Count
CellsDown = range(rng, rng.End(xlDown)).Rows.Count
Set rng1 = rng.Resize(2, CellsAcross)
Set rng2 = range(rng(CellsDown, 1), rng(CellsDown, CellsAcross))
rng1.Copy range("J1")
rng2.Copy range("J1").Offset(2)
Set rng3 = range("J1").Resize(3, CellsAcross)
ReDim FlashArr(1 To 3, 1 To CellsAcross)
FlashArr = rng3
End Sub

Alan Beban