对VBA数组的再认识

疑问1:如果一个数组变量未定义维度(一维或二维),则其默认为一维?二维?更或多维?

两个方面:①若接下来直接对数组赋组的话,则会提示下标超界

1     Dim arr() As Integer
2 
3     arr(1) = 1
4 
5     arr(1, 1) = 1

第3句:提示下标超界;第5句:提示下标超界.
原因就是未使用Redim语句指定其下界和上界,改为下面的代码

1     Dim arr() As Integer
2     ReDim arr(3)
3     arr(1) = 1
4     MsgBox arr(1)
5     ReDim arr(3, 2)
6     arr(1, 1) = 1
7     MsgBox arr(1, 1)

此时程序通过.这是属于直接给数组赋值.
但若通过单元格数据直接给未定维度及上下界的数组直接赋值的话,就可以正确通过,并且此时默认就是二维数组.

并且此时生成的数组要受Option Base 1或0的影响,这点要特别注意.

写到这儿想到Split函数的应用中可以利用指定界定符将字符串进行分割,而Split函数返回的是一个一维数组,并且其起始下标是从0开始,这点不受Option Base 1的影响,写程序时要特别注意.

1     Dim arr() As String, y As Variant, myRng As Range
2     Set myRng = Range("A1:B3,C2:F4")
3     arr() = Split(myRng.Address, "$")
4     For Each y In arr
5         Debug.Print y
6     Next y
7     Debug.Print LBound(arr), UBound(arr)

第7句中Lbound(arr)输出为0,Ubound(arr)输出为8,请自行复制代码到VBA中进行验证.