Bagaimana cara menambahkan seluruh rentang ke array di vba?

Langkah-langkah untuk menambahkan rentang ke array di VBA

1. Pertama, Anda perlu mendeklarasikan array dinamis menggunakan tipe data varian.
   
2. Kemudian Anda perlu mendeklarasikan variabel lain untuk menyimpan jumlah sel dalam rentang tersebut dan juga menggunakan penghitung ini untuk perulangan.
   
3. Setelah itu, tetapkan rentang di mana Anda mempunyai nilai ke array.
   
4. Dari sini kita perlu membuat loop untuk mencetak semua nilai ke jendela langsung sehingga Anda dapat melihat bahwa semua nilai ditetapkan ke 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

Dan ketika Anda menjalankan kode di atas, ini menunjukkan kepada Anda semua nilai yang Anda tetapkan dari rentang (“A1:A11) ke array iAmount dan mencetaknya di jendela langsung .

Dengan cara yang sama, Anda juga bisa menggunakan array multidimensi.

 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

Atau Anda juga bisa melakukannya dengan cara ini juga.

 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