如何获取Excel VBA中Application.Match返回的错误代码？

首先得明确：当Application.Match找不到匹配项时，返回的Result变量是一个Variant/Error类型的特殊值，它不是普通的Err对象，所以直接调用.Number会触发类型错误——这就是你之前踩坑的原因。这个错误变体本质上存储的是Excel的错误代码数值，比如Error 2042对应的就是xlErrNA常量（数值为2042）。

1. 如何获取Result的错误编号？ #

当确认Result是错误变体（用IsError(Result)判断）后，可以通过CLng(Result)将其转换为对应的错误编号数值，代码示例：

Dim Result As Variant
Result = Application.Match(string, Wb.Sheets("UD_Base").Range("UD_Base[U_ID]"), 0)

If IsError(Result) Then
    Dim errNumber As Long
    errNumber = CLng(Result)
    Debug.Print "错误编号：" & errNumber ' 输出2042
End If

2. 如何判断Result是否为Error 2042？ #

有两种可靠的方式：

• 方式一：用Excel内置错误常量比较
  Excel为常见错误定义了常量，Error 2042对应的是xlErrNA，直接和Result比较即可：

  If IsError(Result) Then
      If Result = CVErr(xlErrNA) Then
          Debug.Print "匹配失败，返回Error 2042"
      End If
  End If
  

  这里CVErr()函数的作用是将错误常量转换为Variant/Error类型，让两边类型匹配才能正确比较。

• 方式二：直接比较错误编号数值
  先判断是错误变体，再比较转换后的数值：

  If IsError(Result) Then
      If CLng(Result) = 2042 Then
          Debug.Print "匹配失败，返回Error 2042"
      End If
  End If
  

为什么之前的判断方式失效？ #

• Case "Error 2042"：Debug.Print显示的是错误变体的字符串表示，但变量本身不是字符串类型，直接和字符串比较会不匹配。
• Case Err：Err是VBA的全局错误对象，而Result是Excel返回的错误变体，两者是完全不同的类型，自然无法匹配。

内容的提问来源于stack exchange，提问作者Ádám Bukovinszki