基于同一列的双重VLOOKUP宏问题求助：Excel代码调试

原代码的核心问题是IF判断逻辑完全脱离了循环：第一个Next i直接终止了行循环，后续的错误判断只在循环结束后执行一次，且操作的是超出数据范围的行，自然无法处理Sheet2的匹配需求。另外代码未定义result变量，也没有正确捕获单元格的错误状态。

修复方案一：VBA后台计算（不保留公式） #

适合不需要在单元格留公式的场景，直接在后台计算结果并写入：

Sub DoubleVLookup()
    Dim lastRow As Long
    Dim i As Long
    Dim lookupVal As Variant
    Dim sheet1Result As Variant
    Dim sheet2Result As Variant
    
    ' 获取D列最后一行数据行号
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' 逐行处理（从第6行开始）
    For i = 6 To lastRow
        lookupVal = Cells(i, "D").Value ' 修正：需求是基于D列值查找，原代码误取G列
        
        ' 优先查询Sheet1
        sheet1Result = Application.VLookup(lookupVal, ThisWorkbook.Sheets("Sheet1").Range("G:AJ"), 25, False)
        
        If IsError(sheet1Result) Then
            ' Sheet1无匹配，查询Sheet2
            sheet2Result = Application.VLookup(lookupVal, ThisWorkbook.Sheets("Sheet2").Range("H:AJ"), 25, False)
            Cells(i, "H").Value = sheet2Result
        Else
            ' Sheet1有匹配，直接写入结果
            Cells(i, "H").Value = sheet1Result
        End If
    Next i
End Sub

修复方案二：写入嵌套IFERROR公式（保留公式） #

需要保留公式方便后续数据更新的话，直接用Excel原生嵌套公式实现，无需循环判断：

Sub DoubleVLookupFormula()
    Dim lastRow As Long
    Dim formulaStr As String
    
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    formulaStr = "=IFERROR(VLOOKUP(D@,'Sheet1'!G:AJ,25,FALSE),VLOOKUP(D@,'Sheet2'!H:AJ,25,FALSE))"
    
    ' 一次性给H列目标范围写入公式
    Range("H6:H" & lastRow).Formula = formulaStr
End Sub

关键修改说明 #

• 将错误判断逻辑移至循环内部，确保每一行都先尝试Sheet1查找，失败后切换到Sheet2
• 修正原代码中查找值的错误（原代码误取G列，需求为基于D列值查找）
• 方案一通过Application.VLookup后台计算，避免公式冗余；方案二利用Excel原生函数，实现更简洁高效

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