Como adicionar um intervalo inteiro a um array em vba?

Etapas para adicionar um intervalo a um array em VBA

1. Primeiro, você precisa declarar um array dinâmico usando o tipo de dados variante.
   
2. Então você precisa declarar outra variável para armazenar o número de células do intervalo e também usar esse contador para o loop.
   
3. Depois disso, atribua o intervalo onde você tem um valor ao array.
   
4. A partir daqui, precisamos criar um loop para imprimir todos os valores na janela imediata para que você possa ver que todos os valores estão atribuídos ao 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 você executa o código acima, ele mostra todos os valores que você atribuiu do intervalo (“A1:A11) ao array iAmount e os imprime na janela imediata .

Da mesma forma, você também pode usar um array multidimensional.

 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

Ou você também pode fazer assim.

 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