Application.Match 给出类型不匹配

Question

我正在尝试使用Application.Match，但它返回type mismatch error:13 错误。为什么？

Dim mySrs as Series
Dim ws as Worksheet
set ws Activesheet
For Each mySrs in ActiveChart.SeriesCollection
tempvar = mySrs.Name
y = Application.Match(tempvar, ws.Range("P37:P71"), 0)
MsgBox y

Answer 1

很可能找不到匹配项。在这种情况下，Application.Match 返回一个 Excel 错误代码，即值为 Error 2042 的 Variant/Error（这对应于在 Excel 中获取 #N/A）。

这样的错误值不能被隐式强制转换为字符串（这是MsgBox 所期望的），因此您会得到类型不匹配。

请注意，可以使用WorksheetFunction.Match 调用相同的Match 函数。唯一的区别是如何处理错误：

• 使用 WorksheetFunction，错误被视为 VBA 错误，可使用 On Error 语法捕获。

• 使用 Application，它们会返回包装在 Variant 中的 Excel 错误代码。您可以使用IsError 来查看返回的变量是否为Error 类型的变体。