vba创建一个变量控制长度的数组

在写一些复杂的vba代码时，有时数组的长度没法预先估计，数组大小由其他一些函数决定，这时就需要使用变量定义数组长度，但是直接在创建数组时使用变量定义数组长度会报错，比如以下代码：

Sub 用变量定义数组长度1()
a = 100
Dim arr(a)    '定义一个长度为a的一维数组
End Sub

报错提示就是要求使用常数表达式，想要解决这个问题，可以使用以下代码：

Sub 用变量定义数组长度2()
a = 100
Dim arr()    '定义一个一维数组
ReDim arr(a) '重新定义数组大小
End Sub

可以先创建数组，但不定义数组长度，创建数组后，再使用ReDim重新分配数组空间，在ReDim中使用数组长度的变量，这样就可以随意根据其它函数代码的变化来实现控制数组的长度。

如果这篇文章对您有帮助，可以分享或转藏到您的个人图书馆避免以后找不到。想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。