带有范围的 Excel VBA Vlookup

Question

我有 vlookup 公式，它采用 A2 的值并返回在单元格 O2 中的 Lookup_Table 中找到的相应匹配项，此查找将继续查找下面的行。

如何修改此代码以在 A:M 中查找一系列值，并将结果放在 O:AA 中？还是我必须单独手动编码每一列？

  With Sheets("Example")
    .Range("O2:O" & .Range("A" & Rows.Count).End(xlUp).Row).Formula = _
        "=IF(ISERROR(VLOOKUP(A2,'Lookup_Table'!A:H,4,FALSE)),0,VLOOKUP(A2,'Lookup_Table'!A:H,4,FALSE))"
           .Range("O2:O" & .Range("A" & Rows.Count).End(xlUp).Row).Value = _
        .Range("O2:O" & .Range("A" & Rows.Count).End(xlUp).Row).Value 'Comment out if you'd like to leave the above formula in place
End With

Answer 1

假设Lookup_Table = 'Lookup_Table'!A:H，您可以尝试以下操作：

With worksheets("Cross_Walk") ' Assumes Activeworkbook
    .Range("E2:H" & .Range("A" & .Rows.Count).End(xlUp).Row).Formula = _
        "=Iferror(VLOOKUP(A2,'Lookup_Table'!$A:$H,4,FALSE),0)"
    End With

• 我们将公式分配给范围E2:H?，其中? 是确定的最后一行。

• 将相同的公式分配给单元格区域时，Excel 会观察相对引用和绝对引用。

• 因此，由于 VLOOKUP 中的 A2 具有相对的行和列引用（没有 $ 符号），因此当在 F2 中输入公式时，它将更改为 B2 -- 以此类推剩余的列和行。

• 另外，如果您要测试 VLOOKUP 的结果是否错误，然后有条件地分配零或匹配值，您也可以只在公式中使用 IFERROR -- 而不是执行两次 VLOOKUP。