Arrays VBA Excel循环不适用

Arrays VBA Excel循环不适用,arrays,vba,loops,Arrays,Vba,Loops,假设我有这样一个代码: Sub check() M = 100000 ReDim abc(1 To M) For i = 1 To M abc(i) = i + 1 Next i Range("A1").Resize(UBound(abc)) = Application.Transpose(abc) End Sub 我运行代码,从I=34465,它给出了N/A的结果 你能就此给出建议吗?转置和数组大小的能力是有限的。请阅读以下内容:

假设我有这样一个代码:

Sub check()
M = 100000
ReDim abc(1 To M)
 
For i = 1 To M
    abc(i) = i + 1
Next i

Range("A1").Resize(UBound(abc)) = Application.Transpose(abc)
End Sub
我运行代码,从I=34465,它给出了N/A的结果


你能就此给出建议吗?

转置
和数组大小的能力是有限的。请阅读以下内容: