Просто используйте
Dim MyArray() As Variant
MyArray = Worksheets("Sheet1").Range("A1:AD10").Value
Это прочитает весь диапазон в двумерный массив, к которому вы можете получить доступ с помощью
Debug.Print MyArray(row, column)
, где row
и column
должны находиться в пределах размеров массива 1 … n
.