函数可以应用于数组，不需要进行循环。
一 函数在数组中的应用
1.1 数组的最值
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)
End Sub
1.2 求和
MsgBox "1,12,4,5,19的和" & Application.Sum(arr1)
application.sum(数组）
1.3 统计个数
在工作表中中，统计个数用countif函数，这个函数的第一个参数是单元格引用，所以countif无法对数组引用。对于数组，利用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 "数组1的数字个数" & Application.Count(arr1) '结果是2
MsgBox "数组1的填充数值个数" & Application.CountA(arr1) '结果是5
MsgBox "数组2的填充数值个数" & Application.CountA(arr2) '结果是11
MsgBox "数组2的填充数字个数" & Application.Count(arr2) '结果是2
End Sub
1.4在数组里查找
在工作表中利用match函数，数组中也可以用match函数。
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 "not find"
End If
End Sub
On Error Resume Next的意思就是略过错误
If Err.Number = 13就是说执行以上语句以后有没有错误13(类型不匹配)生成(如果执行一个语句产生错误时会自动设置Err对象的Number和Description等等属性)
二 可以生成数组的函数
2.1 split,join函数
Sub s3()
Dim sr, arr
sr = "A-BC-FGR-H"
arr = VBA.Split(sr, "-")
MsgBox arr(2)
End Sub
JOIN 函数，把拆分后的字符串用逗号连接起来。
Sub s3()
Dim sr, arr
sr = "A-BC-FGR-H"
arr = VBA.Split(sr, "-")
MsgBox Join(arr, ",")
End Sub
2.2 filter 函数
按条件筛选符合条件的值组成一个新的数组。filter只能进行模糊筛选，是一种包含关系的筛选，没有办法做到精确筛选，若想精确筛选只含有W的，只能用循环了。
filter（数组，筛选条件，是/否），如果是，则返回包含的数组，如果否则返回非包含的数组。
Sub s4()
Dim arr, arr1, arr2
arr = Application.Transpose(Range("a2:a10")) ‘列化为行，将九行一列数组化为一维数组
arr1 = VBA.Filter(arr, "W", True)
arr2 = VBA.Filter(arr, "W", flase)
Range("b2").Resize(UBound(arr1) + 1) = Application.Transpose(arr1) ’将一维数组化为一列数据进行填充
Range("c2").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
End Sub
2.3 index函数
index函数可以把二维数组的某一列或某一行截取出来，构成一个新的数组。
application.index(二维数组,0,列数) 返回二维数组
application.index(二维数组,行数,0) 返回一维数组
若是想截取第几行到第几行，只能用循环解决了。
Sub s5()
Dim arr, arr1, arr2
arr = Range("a2:d6")
arr1 = Application.Index(arr, , 1)
arr2 = Application.Index(arr, 4, 0)
Stop
End Sub
2.4 vlookup函数
vlookup函数的第一个参数可以用VBA数组，返回的也是一个VBA数组。
Sub s6()
Dim arr, arr1
arr = Range("a2:d6")
arr1 = Application.VLookup(Array("b", "c"), arr, 4, 0) '先构建一个需要查找的内容的一维数组
Stop
End Sub
关于Vlookup 函数
Application.VLOOKUP(lookup_value, table_array, column_index, range_lookup)
http://www.exceltrick.com/formulas_macros/vlookup-in-vba/
2.5 sumif 和countif函数
countif和sumif函数的第二个参数都可以使用数组，所以也可以返回一个VBA 数组。
Sub s7()
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
counif函数同理。
