Come aggiungere un intero intervallo a un array in vba?

Passaggi per aggiungere un intervallo a un array in VBA

1. Innanzitutto, devi dichiarare un array dinamico utilizzando il tipo di dati variante.
   
2. Quindi devi dichiarare un’altra variabile per memorizzare il numero di celle nell’intervallo e utilizzare anche questo contatore per il ciclo.
   
3. Successivamente, assegna l’intervallo in cui hai un valore all’array.
   
4. Da qui dobbiamo creare un ciclo per stampare tutti i valori nella finestra immediata in modo da poter vedere che tutti i valori sono assegnati all’array.
   

 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

E quando esegui il codice sopra, mostra tutti i valori che hai assegnato dall’intervallo (“A1:A11) all’array iAmount e lo stampa nella finestra immediata .

Allo stesso modo, puoi anche utilizzare un array multidimensionale.

 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

Oppure puoi farlo anche in questo modo.

 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