文章背景：在采用VBA抓取数据时，有时需要判断指定数值是否在一维数组中已存在；如果存在，则希望能够获取该数值在数组内的位置。
在实践过程中发现，VBA的filter函数无法完全匹配指定数值；而借助Excel的match函数，可以实现完全匹配。接下来分别对Filter函数和Match函数进行介绍。
- Filter 函数
根据指定的筛选准则，传回包含字串阵列子集的以零为基础的阵列。
Filter ( sourcearray , match , [ include , [ compare ]])
- sourcearray 必要项目。要搜寻的字串的一维阵列。
- match 必要。要搜寻的字串。
- include 选用。指出是否传回包含或排除match的子字串的布尔值。若include为True，Filter则会传回包含match作为子字串的阵列子集。若include为False，Filter则会传回不包含match作为子字串的阵列子集。
- compare 选用。指出要使用的字串比较种类的数值。
- compare引数可具有以下的值：
vbBinaryCompare选项，区分大小写；vbTextCompare选项，不区分大小写。默认采用的是vbBinaryCompare选项。
应用示例：
判断某字符串是否在一维数组内存在。
由上图可以看出，采用Filter函数匹配到的是包含A-1的所有元素。而在实际案例中，可能希望只获得完全匹配的元素。
- WorksheetFunction.Match 方法
傳回項目在陣列中的相對位置，其符合指定順序中的指定值。
WorksheetFunction.Match(Arg1， Arg2， Arg3)
如果 match_type 是 0，相符項目會尋找第一個完全等於 lookup_value 的值。
如果 match_type 是 1，相符項目會找到小於或等於 lookup_value 的最大值。
如果省略 match_type，則會假設其值為 1。
应用示例：
代码语言：javascript复制Option Explicit
Option Base 1
Sub test()
Dim data(4) As String, temp As String, flag As Integer
data(1) = "A-1"
data(2) = "A-2"
data(3) = "A-3"
data(4) = "A-11"
temp = "A-1"
On Error Resume Next
flag = WorksheetFunction.Match(temp, data, 0)
If Err.number = 0 Then
MsgBox flag
End If
End Sub运行上述程序，得到flag的值为1。
参考资料：
[1] Filter 函数（https://ddz.red/m4Yby）
[2] WorksheetFunction.Match 方法（ttps://ddz.red/Vj4pR）
