Suppose your data range is Range("A1:B3"). (You change it to whatever your data range is).Originally Posted by cgphung
Declare a dynamic Array of variant data type.
Dimension it according to the RowsNumber and ColumnsNumber of your range.
Assign the range to this Array.
[vba]Dim Arr() As Variant
Sub RangeToArray()
Dim R as Range
Set R = Range("A1:B3")
ReDim Arr(R.Rows.Count, R.Columns.Count)
Arr = R
End Sub[/vba]