VBA使用单元格中公式的间接范围vlookup

VBA使用单元格中公式的间接范围vlookup,vba,vlookup,excel-indirect,Vba,Vlookup,Excel Indirect,我确信我使用引号和撇号的方式是一个错误,但就我的生命而言,我无法修复它。我在VBA中运行一个循环,在间接范围内添加一个vlookup。当我仅使用基于我所在行号的间接单元格时,我没有错误(见下文): 其中B1是我要引用的图纸名称所在的单元格 当我尝试将相同的逻辑合并到VLOOKUP中时,我得到一个运行时错误: For n = 6 To 77 Range("C" & n).Formula = "=VLOOKUP(A" & n & ",INDIRECT(""'"" &a

我确信我使用引号和撇号的方式是一个错误,但就我的生命而言,我无法修复它。我在VBA中运行一个循环,在间接范围内添加一个vlookup。当我仅使用基于我所在行号的间接单元格时,我没有错误(见下文):

其中B1是我要引用的图纸名称所在的单元格

当我尝试将相同的逻辑合并到VLOOKUP中时,我得到一个运行时错误:

For n = 6 To 77
    Range("C" & n).Formula = "=VLOOKUP(A" & n & ",INDIRECT(""'"" & B1 & ""'!A1:H76""" & "),3,0))"
Next n

我肯定这是有引号的,但我就是搞不懂,请帮忙

这就是您想要的,其中工作表名称在b1中,表数组A1:H76在单元格b2中

Dim n As Long

For n = 6 To 77

Range("c" & n).Formula = "=VLOOKUP(a" & n & ", INDIRECT(""'"" & b1 & ""'!"" & b2),3,0)"

Next n
末端有一个过多的
删除一个。
“=VLOOKUP(A“&n&”,间接(“&B1&”!A1:H76”),3,0)”
Dim n As Long

For n = 6 To 77

Range("c" & n).Formula = "=VLOOKUP(a" & n & ", INDIRECT(""'"" & b1 & ""'!"" & b2),3,0)"

Next n