IFERRORVLOOKUP用vba？

Question

=IFERROR(VLOOKUP(M2,'2023入库'!D:G,4,0),"0")大佬们这个怎么用vba

Answer 1

这个公式是用于Excel中的，它使用VLOOKUP函数来在另一个工作表中查找某个值，并返回该值的相应数据。如果查找不到该值，则IFERROR函数会返回一个特定的值，例如“0”。
下面是将此公式转换为VBA代码的示例：
Dim lookupValue as Variant
Dim lookupRange as Range
Dim result as Variant

' 获取要查找的值
lookupValue = Range("M2").Value

' 获取要查找的范围
Set lookupRange = Worksheets("2023入库").Range("D:G")

' 使用VLOOKUP函数查找值并存储结果
result = Application.VLookup(lookupValue, lookupRange, 4, False)

' 检查结果是否为错误值
If IsError(result) Then
result = 0
End If

' 输出结果
Range("A1").Value = result

此代码假定查找值在单元格M2中，要查找的范围是“2023入库”工作表的D：G列，结果将输出到单元格A1中。如果VLOOKUP函数返回错误值，则代码将结果设置为0。