VBA-Excel数组应用

1）数组创建
A类：动态数组
Dim arr ()     创建一个动态变量数组,不受长度/数据类型受制
Dim arr ()  as string   创建一个动态变量数组,不受长度/数据类型受制
B类：静态数组
Dim arr(5)  as string    创建一个一维数组,下标从0开始,最大下标值为5
Dim arr(3,3) as Integer 创建一个二维数组,开始arr(0,0),最后一个arr(3,3)
Dim arr=array(1, 2, 3) 创建一个一维数组,固定长度3，值为1，2，3
Dim arr (0 to 4,0 to 5) as intege 创建一个二维数组,开始arr(0,0),最后一个arr(4,5)

2）重置数组长度ReDim
动态数据就一定需要redim，静态数组就不要再redim
ReDim arr(0 To 5, 0 To 6)  将动态数组arr重置为arr(5,6) 二维数动态组
 

2）数组指定位置赋值
默认将数组的第一个成员设置为0（索引号），因此，数字1代表数组中的第二个成员，而数字2则代表第三个
arr (index) =122121

 

3）通过Array函数批量
arr=Array("red","yellow","blue","black")

4）成员最大索引位置（UBound）
UBound(数组名,[第n维])
第n维是可选项，默认值 为 1 ，将返回最大下标

UBound 为 Visual Basic 中的一个函数，用来返回数组或元素相应维度的最大值。

5）成员最小索引位置（LBound）
（LBound）(数组名,[第n维])
第n维是可选项，默认值 为 1 ，将返回最小下标
同理，LBound函数是获取最小值

 
6）数组转换为字符串
Join(array, 分隔符)
比如：Join(arr, ",")

 

7）获取数组中元素的个数

application.count(arr)

 

8）判断是否包含某成果

Function ItemInArray(vArr, vItem) As Boolean
    ItemInArray = False
    For i = 1 To UBound(vArr, 1)
        For j = 1 To UBound(vArr, 2)
            If vArr(i, j) = vItem Then
                ItemInArray = True
                Exit Function
            End If
        Next j
    Next i
End Function