第23集 VBA数组-4：数组与函数
100、 数组的最值
Application.Max(数组名)
Application.Min(数组名)
Application.Large(数组名,第几个)
Application.Small(数组名,第几个)
Sub s()
Dim arr1()
arr1 = Array(1, 12, 4, 5, 19)
MsgBox “1, 12, 4, 5, 19最大值” & Application.Max(arr1)
MsgBox “1, 12, 4, 5, 19最小值:” & Application.Min(arr1)
MsgBox “1, 12, 4, 5, 19第二大值：” & Application.Large(arr1, 2)
MsgBox “1, 12, 4, 5, 19第二小值：” & Application.Small(arr1, 2)
End Sub
101、 数组求和
Application.Sum(数组名)
102、 数组统计个数
'3 统计个数
CountA：统计数组的个数；
Count统计VBA数组的数字个数；
Sub s1()
Dim arr1, arr2(0 To 10), x
arr1 = Array(“a”, “3”, “”, 4, 6)
For x = 0 To 4
arr2(x) = arr1(x)
Next x
MsgBox “数组2的数字个数：” & Application.Count(arr2) ‘2
MsgBox “数组2的已填充数值的个数：” & Application.CountA(arr2) ‘11
End Sub
103、 在数组中查找
Application.Match(要查找的字符,数组名,0)
Sub s2()
Dim arr
On Error Resume Next
arr = Array(“a”, “c”, “b”, “f”, “d”)
MsgBox Application.Match(“f”, arr, 0)
If Err.Number = 13 Then
MsgBox “查找不到”
End If
End Sub
104、 Split（拆分）函数和Join（连接）函数
Split函数按分隔符把字符串截取成VBA数组,该数组是一维数组，编号从0开始；
split(字符串,分隔符)
Join函数将一维数组按照连接符连接成一个字符串；
Join(数组名,连接符)
Sub t1()
Dim sr, arr
sr = “A-BC-FGR-H”
arr = VBA.Split(sr, “-”)
MsgBox Join(arr, “,”)
End Sub
105、 Filter函数
按条件筛选符合条件的值组成一个新的数组
Filter(数组,筛选条件,是/否)
注：如果是（True）则返回包含的数组，如果否则返回非包含的数组
Transpose可将二维数组（n行1列）转置为一维数组，用于使用一维数组的公式；
Sub t2()
Dim arr, arr1, arr2
arr = Application.Transpose(Range(“A2:A10”)) 'Transpose将二维数组（9行1列）转置为一维数组
arr1 = VBA.Filter(arr, “W”, True)
arr2 = VBA.Filter(arr, “W”, False)
Range(“B2”).Resize(UBound(arr1) + 1) = Application.Transpose(arr1)
Range(“C2”).Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
End Sub
106、 Index函数
调用该工作表函数可以把二维数组的某一列或某一行截取出来，构成一个新的数组。
Application.Index(二维数组,0,列数)) 返回二维数组
Application.Index(二维数组,行数,0)) 返回一维数组
Sub t3()
Dim arr, arr1, arr2
arr = Range(“a2:d6”)
arr1 = Application.Index(arr, , 1)
arr2 = Application.Index(arr, 4, 0)
Stop
End Sub
107、 Vlookup函数
Vlookup函数的第一个参数可以用VBA数组，返回的也是一个VBA数组（一维数组）。
Sub t4()
Dim arr, arr1
arr = Range(“a2:d6”)
arr1 = Application.VLookup(Array(“B”, “C”), arr, 4, 0)
End Sub
108、 Sumif和Countif函数
Countif和sumif函数的第二个参数都可以使用数组，所以也可以返回一个VBA数组（一维数组），如：
Sub t5()
Dim T
T = Timer
Dim arr
arr = Application.SumIf(Range(“a2:a10000”), Array(“B”, “C”, “G”, “R”), Range(“B2:B10000”))
MsgBox Timer - T
End Sub
