如何在Excel中利用VBA编写使用Array函数创建数组？

Option Explicit；

Sub ArrayTest()；

Dim arr As Variant '定义变量；

将1到10十个自然数赋给数组arr；

arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)；

MsgBox "arr数组的第2个元素为：" &arr(1)；

End Sub。

a

......

ReDim

Preserve

a(i)

......

先定义一个数组，如果比较后发现这个数为数组内没有，就让i=i+1后，重新定义一下数组，使其元素自动+1，再把值添加进去。

不明白的地方可以Q我，40194204