Как добавить весь диапазон в массив в vba?

Действия по добавлению диапазона в массив в VBA

1. Во-первых, вам нужно объявить динамический массив, используя вариантный тип данных .
   
2. Затем вам нужно объявить еще одну переменную для хранения количества ячеек в диапазоне, а также использовать этот счетчик для цикла.
   
3. После этого присвойте массиву диапазон , в котором у вас есть значение.
   
4. Отсюда нам нужно создать цикл для вывода всех значений в непосредственное окно, чтобы вы могли видеть, что все значения присвоены массиву.
   

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum As Integer iAmount = Range("A1:A11") For iNum = 1 To UBound(iAmount) Debug.Print iAmount(iNum, 1) Next iNum End Sub

И когда вы запускаете приведенный выше код, он показывает все значения, которые вы присвоили из диапазона («A1:A11») массиву iAmount, и печатает их в ближайшем окне .

Таким же образом вы также можете использовать многомерный массив.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) Debug.Print iAmount(iNum1, 1) & " " & iAmount(iNum1, 2) Next iNum1 End Sub

Или вы также можете сделать это таким же образом.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer Dim iNum2 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) For iNum2 = 1 To UBound(iAmount, 2) Debug.Print iAmount(iNum1, iNum2) Next iNum2 Next iNum1 End Sub