為什么老是提示第八行 下標越界呢？沒越界啊，陣列也定義維數了。
Sub 陣列的每隔一行提取成新陣列()
Dim Arr, K, I
Arr = Worksheets("sheet2").Range("a1:f10")
ReDim Brr(5, 6)
K = 1
For I = LBound (Arr) To UBound (Arr) Step 2
For J = LBound (Arr, 2) To UBound (Arr, 2)
Brr(K, J) = Arr(I, J): K = K + 1
Next
Next
Worksheets("sheet3").Range("a1").Resize(5, 6) = Brr
End Sub
uj5u.com熱心網友回復：
k=k+1應該從第一層回圈里拿出來uj5u.com熱心網友回復：
已經解決了
！…………
uj5u.com熱心網友回復：
解決了就好。uj5u.com熱心網友回復：
陣列中我也經常遇到這種下標越界的問題，不過都是小問題，仔細分析就能發現。uj5u.com熱心網友回復：
這種事情出錯的時候斷點，然后看是哪個下標越界接下來就是檢查邏輯，到底是陣列集合啥的定義不對還是下標計算錯誤。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25180.html
標籤：VBA