IFERRORVLOOKUP如何用VBA实现？

Question

=IFERROR(VLOOKUP(H3,'[订单汇总.xlsx]2023订单汇总'!$A:$K,7,0),"0")

Answer 1

在VBA中，可以使用函数Application.WorksheetFunction.IfError和Application.WorksheetFunction.VLookup来实现IFERRORVLOOKUP函数的功能。
具体实现方法如下：
Function IFERRORVLOOKUP(lookup_value As Variant, table_array As Range, col_index_num As Long, error_value As Variant) As Variant
Dim result As Variant
result = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(lookup_value, table_array, col_index_num, False), error_value)
IFERRORVLOOKUP = result
End Function

这个函数接受四个参数，分别是lookup_value（要查找的值），table_array（表格区域），col_index_num（要返回的列数），error_value（如果查找失败返回的值）。
示例使用方法：
=IFERRORVLOOKUP(A1, B1:C10, 2, "Not Found")

这将在表格区域B1:C10中查找A1的值，如果查找失败，将返回“Not Found”。