Something like this perhaps:
Option Explicit
Option Base 1
Sub RangeToLong()
Dim rng As Range
Dim mylong() As Long, i As Long
Set rng = Sheet3.Range("A1:A10")
ReDim mylong(rng.Cells.Count)
'Debug.Print LBound(mylong), UBound(mylong)
For i = LBound(mylong) To UBound(mylong)
mylong(i) = rng(i)
'Debug.Print mylong(i)
Next
End Sub
Edit1: For 2D Long Array
Option Explicit
Option Base 1
Sub RangeToLong()
Dim rng As Range
Dim mylong() As Long, i As Long, j As Long
Set rng = Sheet3.Range("A1:B10")
ReDim mylong(1 To rng.Rows.Count, 1 To rng.Columns.Count)
'Debug.Print LBound(mylong), UBound(mylong)
For i = LBound(mylong, 1) To UBound(mylong, 1)
For j = LBound(mylong, 2) To UBound(mylong, 2)
mylong(i, j) = rng(i, j)
'Debug.Print mylong(i, j)
Next
Next
End Sub
Double
and notLong
.