如何在Excel VBA循环的VLOOKUP公式中使用动态查找区域？

要将预先定义的MyLookupRange作为VLOOKUP的第二个参数，核心是把Range对象转换成R1C1格式的完整引用字符串，直接嵌入公式中即可。

修改后的循环版代码 #

Dim MyLookupRange As Range
Set MyLookupRange = Sheets("Database").Range("A2:B10000")

For i = 1 To 20
    ' 用Range.Address方法生成R1C1格式的外部引用
    Range("K" & i).FormulaR1C1 = "=VLOOKUP(RC[1]," & MyLookupRange.Address(ReferenceStyle:=xlR1C1, External:=True) & ",2,FALSE)"
Next i

关键说明 #

• MyLookupRange.Address(ReferenceStyle:=xlR1C1, External:=True)：这个方法会返回包含工作表名称的R1C1格式引用（比如Database!R2C1:R10000C2），完美匹配FormulaR1C1的语法要求。
  • ReferenceStyle:=xlR1C1：指定输出R1C1样式的引用，和公式格式对齐
  • External:=True：强制生成带工作表名的完整引用，避免跨表引用时出错

优化方案（批量设置，无需循环） #

逐个单元格循环设置公式效率较低，直接给目标区域批量赋值公式更高效：

Dim MyLookupRange As Range
Set MyLookupRange = Sheets("Database").Range("A2:B10000")

' 一次性给K1:K20区域设置公式
Range("K1:K20").FormulaR1C1 = "=VLOOKUP(RC[1]," & MyLookupRange.Address(ReferenceStyle:=xlR1C1, External:=True) & ",2,FALSE)"

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