Question

VBA 将数组里的值输出到某一列

Sub test()

Dim arr_a(1 To 660000) As Variant
For i = 1 To 660000
arr_a(i) = i
Next

[a1].Resize(660000, 1) = arr_a
End Sub

代码如上，但输出结果都是1
我想达到的效果是数组Arr_a的值依次写入A列以此累推,请高手指导一下
要示不能用循环，循环单个写入速度太慢，因为有660000条数据

Answer 1

亲，如果要把数组赋值给单元格，那么，这个数组必须定义为二维。
也就是Dim arr_a(1 To 660000, 1) As Variant

arr_a(i, 1) = i

...

追问

谢谢，我试试
可以执行，但输出结果全部空白，是我哪里写错了呢

Sub test()

Dim arr_a(1 To 660000, 1)
For i = 1 To 660000
arr_a(i, 1) = i
Next

[a1].Resize(660000, 1) = arr_a
End Sub