在Excel VBA中对数组使用Match函数时出现类型不匹配错误

核心原因 #

Application.Match的返回值类型会根据是否找到匹配发生变化：

• 找到匹配时，返回数值类型的索引值（比如第一个示例中匹配到"fee"，返回1）。VBA的If语句可以把非0数值隐式转为布尔值True，所以代码能正常执行。
• 找不到匹配时，返回的是错误值（Error 2042）。而VBA的If条件只能处理布尔值、可隐式转布尔的数值/字符串，错误值无法完成这种转换，直接触发"类型不匹配"错误。

正确的处理方式 #

要避免这个错误，需要先判断返回值是否为错误值，再执行后续逻辑：

方法1：用IsError函数判断

Dim MyArray
Dim matchResult

MyArray = Array("fee", "fi", "fo", "fum")
matchResult = Application.Match("foo", MyArray, 0)

If Not IsError(matchResult) Then
    Debug.Print "Pass"
Else
    Debug.Print "未找到匹配项"
End If

方法2：用错误捕获机制

Dim MyArray

MyArray = Array("fee", "fi", "fo", "fum")

On Error Resume Next ' 临时忽略错误
If Application.Match("foo", MyArray, 0) Then
    Debug.Print "Pass"
End If
On Error GoTo 0 ' 恢复默认错误处理

内容的提问来源于stack exchange，提问作者XCELLGUY