通过VBA代码调用VLOOKUP函数 工作表公式正常但代码报错求指导

• 第一版初始代码的错误：VLOOKUP的第三参数要求输入代表目标列在查找区域位置的整数，你把该参数设为Range类型的col_index（也就是Sheet2的D列单元格区域），参数类型完全不匹配，运行时直接报“类型不匹配”错误，根本走不到查找步骤
• 第一轮修改后的代码无效果的原因：代码已经把第三参数改成了正确的整数4，VLOOKUP计算出的结果仅仅存在内存变量FinalResult里，既没有回写到工作表单元格，也没有弹窗输出，运行时看起来完全没有反应，自然判断代码没有实现效果
• 第二轮调整后的代码运行报错/逻辑错误的原因：
  • 一是你把查找结果回写到了原查找值所在的A2单元格，直接覆盖了原本用来做匹配的源数据
  • 二是错误地给Variant类型的FinalResult加了.Value属性：VLOOKUP返回的结果是普通文本/数值，存储在Variant变量里时是基础数据类型，不是Range对象，没有Value属性，运行到这步会直接报“对象不支持该属性/方法”错误
  • 三是直接调用WorksheetFunction.VLookup时，如果查找值在数据源里没有匹配项，函数会直接抛出运行时错误中断程序，根本走不到结果赋值的步骤
  • 四是全程没有用到的col_index变量属于冗余声明，不影响运行但会增加代码冗余

以下代码匹配你工作表里写的原生VLOOKUP逻辑，同时规避了之前所有的报错点，支持逐行批量匹配：

Sub Example()
    Dim rng As Range
    Dim lookupTable As Range
    Dim FinalResult As Variant
    Dim lRow As Long
    ' 获取Sheet2 B列的最后有效行号
    lRow = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
    ' 锁定跨表查找的数据源区域
    Set lookupTable = Sheet1.Range("A2:D15")
    ' 遍历所有需要匹配的行
    For Each rng In Sheet2.Range("A2:A" & lRow)
        ' 用Application.VLookup替代WorksheetFunction，避免无匹配时直接中断代码
        FinalResult = Application.VLookup(rng.Value, lookupTable, 4, False)
        ' 将结果写到当前行的B列，可根据实际需求调整偏移列数
        If IsError(FinalResult) Then
            rng.Offset(0, 1).Value = "无匹配结果"
        Else
            rng.Offset(0, 1).Value = FinalResult
        End If
    Next
End Sub

• 如果只是单次匹配A2单元格的内容，不需要循环，直接将结果赋值到目标单元格即可，不要覆盖A2的原始查找值
• 调用工作表函数时，第三参数必须是对应查找区域内的整数列号，不能传单元格区域/Range对象
• 处理可能无匹配值的查找场景时，优先用Application.VLookup替代WorksheetFunction.VLookup，程序不会因为找不到值直接崩溃

内容的提问来源于stack exchange，提问作者user14807564