vba怎么將數據循環裝入二維數組？

一維給二維賦值，參考實例如下： for (i = 0; i < 10; i++) { for (j = 0; j < max; j++) { scanf("%d", &a[j]); } strncpy(b[i], a， max); //memcpy（b[i], a, max); } 二維數組賦值有兩種方法， 第一種方法是單元格區域裝入二維數組，如： Arr=range("a1:b19")就可以把單元格區域的值裝入數組arr 第二種就是通過循環裝入，一個個數值裝入。 例： 向二維數組寫入數據和讀取； Dim x As Integer, y As Integer Dim arr(1 To 5, 1 To 4) For x = 1 To 5