Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
help with filling in an array formula | Excel Discussion (Misc queries) | |||
Filling an array from one sheet to another | Excel Programming | |||
Filling an array with a Loop | Excel Programming | |||
filling a form with an array | Excel Programming | |||
Filling an array with data | Excel Worksheet Functions |