无法获取 WorksheetFunction 类的 Lookup 属性

Question

以下代码：

For i = startRow To startRow + (nRows - 1)    
Set lookUp = Range(col & i)
Range("I" & i) = IIf(WorksheetFunction.lookUp(lookUp, Sheets("P&C curves").Columns("A")) = lookUp, 1, 0)
Range("J" & i) = IIf(WorksheetFunction.lookUp(lookUp, Sheets("G Curve").Columns("A")) = lookUp, 1, 0)      
Next i

在代码中，我第一次调用WorksheetFunction.lookUp 时一切正常，即它在找到某些东西的地方用 1 填充列，否则它输入零，但第二行不起作用。我收到错误：

无法获取工作表函数类的查找属性。

为什么会这样？如果我尝试直接在 Excel 工作表中使用相同的逻辑，它会起作用吗？

非常感谢任何帮助...非常感谢

Answer 1

在这种情况下，由于查找值在数组中不可用而出现错误。 如果我们在 excel 文件中编写公式并且我们在数组中没有查找值，那么它只是返回 #N/A 但在 VBA 中它返回 Unable to get lookup property of the worksheetfunction class。而不是#N/A。因此，您需要在其上添加 On error resume next。

第二种方法是你可以使用循环的公式

Answer 2

这是你正在尝试的吗？

For I = startRow To startRow + (nRows - 1)
    Set Lookup = Range(col & I)

    On Error Resume Next

    Ret = WorksheetFunction.Lookup(Lookup, Sheets("P&C curves").Columns("A"))
    If Err.Number <> 0 Then
        Range("I" & I) = 0
        Err.Clear
    Else
        If Ret = Lookup Then Range("I" & I) = 1 Else Range("I" & I) = 0
    End If

    Ret = WorksheetFunction.Lookup(Lookup, Sheets("G Curve").Columns("A"))
    If Err.Number <> 0 Then
        Range("J" & I) = 0
        Err.Clear
    Else
        If Ret = Lookup Then Range("J" & I) = 1 Else Range("J" & I) = 0
    End If
Next I