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

 

posted @ 2023-12-06 14:48  山䂥进城  阅读(190)  评论(0)    收藏  举报