数组的使用

[a2:f2] = Array(1, 2, 3, 4, 5, 6)
[a4:a9] = WorksheetFunction.Transpose(Array(1, 2, 3, 4, 5, 6))

数组的使用可以加快运算速度，比较实现同样功能的不同写法，本质相同。

Sub t()
Dim arr, ar, n%
arr = Range("a1", [a1].End(xlDown))
For Each ar In arr
    If ar >= 60 Then n = n + 1
Next ar
    MsgBox "共有" & n & "人及格"
End Sub


Sub tt()
Dim rng As Range, rngs as range,n%
set rngs= Range("a1", [a1].End(xlDown))

For Each rng In rngs
    If rng.Value >= 60 Then n = n + 1
Next rng
    MsgBox "共有" & n & "人及格"


End Sub

数组的使用：

Sub y()
Dim arr, n%
arr = Range("b1", "c19")‘可见我们创建了一个二维数组，并将共15行2列的区域赋值给该数组的每个元素’

For i = 1 To 19
    If arr(i, 1) = "A" Then n = arr(i, 2) + n
Next
    MsgBox "属性A的得分为" & n
End Sub

数组的嵌套

Sub y()
Dim arr, n%, arr1(1 To 19), i%‘这里定义arr1的数组共一个维度，15个元素’
arr = Range("b1", "c19")
For i = 1 To 19
    If arr(i, 1) = "A" Then n = n + 1
    arr1(n) = arr(i, 2)‘将数组arr中的第二个数字（即属性A的得分）赋值给数组arr1’
Next
    MsgBox "属性a的得分为" & WorksheetFunction.Sum(arr1)
    
End Sub

动态数组

在定义arr的时候采用redim函数：

redime arr（1 to num）‘其中num是动态获得的数字’

也可以在使用过程中采取：

dim arr（）‘注意此时括号要保留，内部不填写数组的元素个数’

…

n=n+1

redim preserve arr （1 to n）