Excel按AR列值执行不同VLOOKUP时的循环覆盖问题求助

嘿，我猜你的循环逻辑大概率是没针对每一行单元格做独立判断，或者批量赋值时覆盖了之前的结果。咱们一步步来修正这个问题：

方法一：用VBA循环逐行处理（精准控制） #

这种方式适合需要复杂逻辑的场景，能确保每一行都根据AR列的值执行对应VLOOKUP：

Sub DualVLOOKUPByARColumn()
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long
    Dim lookupVal As Variant
    Dim arCellValue As Variant
    
    ' 指定目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("Sheet 1")
    ' 获取Y列最后一行数据（假设表头在第1行，数据从第2行开始）
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "Y").End(xlUp).Row
    
    ' 遍历每一行数据
    For currentRow = 2 To lastDataRow
        lookupVal = targetSheet.Cells(currentRow, "Y").Value ' 取Y列的查找值
        arCellValue = targetSheet.Cells(currentRow, "AR").Value ' 取AR列的判断值
        
        ' 分情况执行VLOOKUP
        If arCellValue = 5 Then
            ' 替换成你的第一个VLOOKUP参数（查找范围、返回列按需修改）
            On Error Resume Next ' 处理查找不到值的情况
            targetSheet.Cells(currentRow, "AS").Value = Application.VLookup(lookupVal, targetSheet.Range("你的第一个查找范围"), 要返回的列数, False)
            On Error GoTo 0
        ElseIf arCellValue = "Invalid" Then
            ' 替换成你的第二个VLOOKUP参数
            On Error Resume Next
            targetSheet.Cells(currentRow, "AS").Value = Application.VLookup(lookupVal, targetSheet.Range("你的第二个查找范围"), 要返回的列数, False)
            On Error GoTo 0
        End If
    Next currentRow
End Sub

关键注意点： #

• 一定要把代码里的你的第一个查找范围、你的第二个查找范围、要返回的列数替换成你实际的表格区域和列数
• 加上On Error Resume Next是为了避免VLOOKUP找不到匹配值时弹出错误，你也可以改成自定义的错误提示（比如赋值为"未找到"）

方法二：用工作表公式（更高效，无需VBA） #

如果逻辑不复杂，直接用公式下拉比写VBA更简单，完全不会有覆盖问题：

在AS2单元格输入以下公式，然后拖动填充柄下拉到最后一行：

=IF(AR2=5, VLOOKUP(Y2, 你的第一个查找范围, 要返回的列数, FALSE), IF(AR2="Invalid", VLOOKUP(Y2, 你的第二个查找范围, 要返回的列数, FALSE), ""))

公式解释： #

• 先判断AR2是否等于数字5，是就执行第一个VLOOKUP
• 否则判断AR2是否是文本"Invalid"，是就执行第二个VLOOKUP
• 两种情况都不满足时，单元格留空（你可以改成其他默认值）

你之前代码出问题的可能原因： #

1. 循环时没有逐行赋值，而是批量给整个AS列设置值，导致后面的else逻辑覆盖了前面的if结果
2. 没有处理VLOOKUP的错误情况，一旦某次查找失败，后续循环可能中断
3. VLOOKUP的查找范围用了相对引用，在循环中范围发生偏移，导致结果错误

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