尝试在 vba 中的匹配 function 中插入变量

Question

运行此代码时出现错误，无法理解这有什么问题：

i = ActiveCell.End(xlUp).Offset(0, 1).Value

ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.VLookup(r, source, WorksheetFunction.Match("i", msource, 0), 0)

Answer 1

Application.WorksheetFunction调用工作表函数，但在 VBA 代码的上下文中：通常在 VBA 中，当 function 执行错误时，它会以这些函数的形式运行。

所以你有两个选择。

一、处理（或吞）VBA 运行时错误：

On Error Resume Next
ActiveCell.Offset(1, 0).Value = Application.WorksheetFunction.VLookup(...)
On Error GoTo 0

像这样，当赋值的右侧抛出错误时（即查找失败时），左侧不会受到影响，并且目标单元格保持之前的值。 注意On Error GoTo 0 ，它可以恢复运行时错误。 这是至关重要的； 没有它On Error Resume Next将使您的代码在一些未处理的错误 state 中运行，这是隐藏错误并使其以后几乎无法诊断的唯一最佳方法。

二、使用后期绑定版本。

当直接针对Application调用时，工作表函数是后期绑定的。 您没有获得编译器帮助，因此请注意任何拼写错误并确保参数正确（您不会获得带有用于后期绑定成员调用的参数列表的工具提示）。

ActiveCell.Offset(1, 0).Value = Application.VLookup(...)

这是相同的VLookup function，但现在它的行为就像在工作表上一样，返回错误值而不是像 VBA ZC1C425268E68385D1AB5074C17 那样抛出运行时错误。 这使得目标单元格值在查找失败时保持#N/A工作表错误。

同样适用于内部Match function； 现在虽然嵌套工作表函数是我们在工作表单元格的公式中做事的方式，但在代码中这样做会使一切变得比必要的困难得多 - 将事情分开，分别评估Match ，验证它是否返回错误值，然后将其仅传递给VLookup如果没有。

Dim matchResult As Variant
matchResult = Application.Match(i, msource, 0)
If IsError(matchResult) Then Exit Sub

请注意，您的代码将文字字符串值"i"传递给Match function; 您可能打算传递i变量的值：您必须删除它周围的双引号才能做到这一点。