[Solved] Read worksheet into 2 dimentional array [duplicate]

by


Here is a typical example of pulling 50 columns of data with a variable number of rows from the active worksheet into a two dimensional array:

Sub GetData()
    Dim r As Range
    Dim N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    arr = Range("A4:AX" & N)
End Sub

solved Read worksheet into 2 dimentional array [duplicate]