使用Vlookup的Excel中的简单自定义函数

Question

我希望有一个更快的过程来查找交叉引用。

现在，我使用VLOOKUP ，它可以正常工作-但是每天需要多次执行它需要花费时间。

它始终是用于查找交叉引用的同一张纸，因此唯一更改的是我在VLOOKUP函数中的输入值。

因此，我需要一个仅输入1值即可获得VLOOKUP值的VLOOKUP 。

这个想法是一个像这样的功能：

=CROSS(ID)

哪里

CROSS = vlookup(ID, table_array, col_index_num,[range_lookup])

因此， vlookup_value替换为ID 。

希望您能为我提供一些答案-预先感谢。

我尝试了多种不同的方法，但没有成功。 当我是新手时，我已经搜索并记录了宏以寻找答案。

Answer 1

您可以使用WorksheetFunction.VLookup方法为此编写一个UDF（用户定义函数）：

Option Explicit

Public Function CROSS(ID As Variant) As Variant

    CROSS = Application.WorksheetFunction.VLookup(ID, table_array, col_index_num, range_lookup)

End Function

Answer 2

我得到了它应有的作用！

代码最终如下所示：

Sub crossref()

Option Explicit

Public Function CROSS(ID As Variant) As Variant
CROSS = Application.WorksheetFunction.VLookup(ID, Worksheets("Sheet1").Range("E:F"), 2, 0)

End Function