Excel 在VBA中编写可以搜索大量数据的Vlookup

我正在尝试根据其ID重新运行产品名称。Integer仅用作较小数字的数据类型。该代码适用于较短的ID号，但使用Long无法解决此问题。我需要改变什么

这是我的VBA代码：

Function ProdName(webID As Long)

Dim name As String

Set book2 = Workbooks("PERSONAL.xlsb")

Set r2 = book2.Sheets(2).Range("$A:$B")

name = WorksheetFunction.VLookup(webID, r2, 2, False)

ProdName = name

End Function

这是我正在查看的表格：

我还尝试过使用数据类型，但没有成功

---

提前谢谢

使用

Variant

。更改为：函数ProdName（webID为Variant），但仍会出现“#NUM！”错误。还有什么我需要更改的吗？对您的示例数据有效，即使是

Long

，但我仍然会使用

Variant

。这很奇怪。我应该尝试创建一个新模块吗？您使用的是模块还是类模块？我会尝试从

子
中调用函数，而不是作为UDF进行调试。