陣列索引超出範圍，到底是那裡出問題

shi353

想用動態保留數組，但第2循環就出現錯誤訊息，請各位先進指導那邊出錯了!

Vicel

1. Sub tes()
   
2.     Dim Arr()
   
3.     For i = 1 To 100
   
4.         ReDim Preserve Arr(1 To 3, 1 To i)
   
5.         For j = 1 To 3
   
6.             Arr(j, i) = i * 2 + j
   
7.         Next j
   
8.     Next i
   
9.     [A1].Resize(UBound(Arr, 2), UBound(Arr)) = Application.Transpose(Arr)
   
10. End Sub

复制代码

ReDim 为数组变量重新分配存储空间。可选项修饰符 Preserve 当仅更改最后一个维度的大小时，用来保留现有数组中的数据。

chenbiao2012

错误应该在这儿：
redim preserve arr（1 to n, 1 to 3),此处不能用变量，你换一下，redim preserve arr（1 to 3,1 to n),最后用application.transpose(arr)

shi353

謝謝樓上先進的指點，沒想到一點點的差異，就會使宏無法執行!