Add Entire Row to Existing Multi-Dimensional Array

[mugginsjr]

I have a single array of row numbers. I need to create another array, this one multidimensional, to hold all 12 columns of data from just those rows in the first array. The needed rows are not contiguous. I want to avoid the time consuming loops if possible. I'd like to add each entire row on the sheet into each row of the array if possible. This is kind of what I have in mind:

'  Ubound(row_Pointer_Array) = 39427

Redim new_Array( 1 to Ubound(row_Pointer_Array), 1 to 12)
For i = 1 to  Ubound(row_Pointer_Array)
          new_Array(i) = Range("A" &  row_Pointer_Array(i) & ":P" &  row_Pointer_Array(i))
Next i

 

[wideboydixon]

Firstly I'd like to point out that A to P is not only 12 columns

Something like this is required:

Dim i As Long
Dim j As Long

' UBound(row_Pointer_Array) = 39427

ReDim new_array(1 To UBound(row_Pointer_Array), 1 To 12)
For i = 1 To UBound(row_Pointer_Array)
    For j = 1 To 12
        new_array(i, j) = Cells(row_Pointer_Array(i), j).Value
    Next j
Next i

WBD

 

[mugginsjr]

Thanks... I was afraid that a loop might be necessary. All in all, though, it's not too bad with execution time running less than .4 seconds. The real time problem is going to come later with all the things I need to do with the new array. Every millisecond counts with these large arrays.

Firstly I'd like to point out that A to P is not only 12 columns

Yeah, hah! I figured that out later when I was coding the loop... 16 columns.

Something like this is required:

Dim i As Long
Dim j As Long

' UBound(row_Pointer_Array) = 39427

ReDim new_array(1 To UBound(row_Pointer_Array), 1 To 12)
For i = 1 To UBound(row_Pointer_Array)
    For j = 1 To 12
        new_array(i, j) = Cells(row_Pointer_Array(i), j).Value
    Next j
Next i

WBD