2

我在 Excel 中有一个数据表，与以下内容相同：

    A       B
-------------
1. aaa     11
2. bbb     22
3. ccc     #N/A
4. ddd     44

我编写了一个 VBA 函数来通过键（在 col A 中）获取值（col B） 例如：=getValue(A1)

在这个例子中，如果我输入=getValue(A3)，函数是 throw #VALUE! 错误。我正在调试并在 VLOOKUP 函数中看到错误。这是我的代码：

Public Function getValue(ByVal key As Variant)

    'get value of the cell at column B which has value 'key' at column A on same row
    column2GetValue = 2
    useClosestMatch = False

    'error here if colum2GetValue contain #N/A
    found = Application.WorksheetFunction.VLookup( _
        key, _
        Worksheets(SHEET_CACHE_NAME).Range("A:B"), _
        column2GetValue, _
        useClosestMatch _
    )

    getValue = found
End Function

如何 VLOOKUP 在 VBA 中获取 #N/A 值？ 感谢您的帮助！

4

1 回答 1

8

您可以按如下方式处理错误。

虽然我建议你考虑使用更通用Find的代替Application.VLOOKUP

Sub TestMe()
Dim vTest As Variant
vTest = Application.VLookup("TesT", Range("A1:B10"), 2, False)
If IsError(vTest) Then
MsgBox "Not found", vbCritical
Else
MsgBox "value is " & vTest
End If
End Sub
于 2012-07-19T08:09:55.453 回答