函數可以應用于數組，不需要進行循環。
一 函數在數組中的應用
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函數同理。
