在VBA中使用Vlookup进行循环后的单元格递增

Question

使用FormulaR1C1时，我需要一些关于使用Vlookup进行循环的帮助。

我一直在寻找与我需要的相关的线程，但没有找到帮助。我试图在每个循环后增加查找值单元格但总是定义错误。

• 我需要＆＃34; VALUE＆＃34;每次循环传递代码时增加2。
• 问题是VBA不接受该声明，除了使用R1C1之外，我还有其他方法吗？

示例代码

g=100
VALUE= 5
Worksheets.("NewData").Select
For i = 1 To 7
Worksheets.("NewData").Cells( g + i, 4).FormulaR1C1= "=Vlookup(R[-VALUE]C[+1], Data!R1C1:R100C100, 2, False)"
VALUE=VALUE+2
Next i

Answer 1

您需要将VALUE数据连接到公式中：

g=100
VALUE= 5
Worksheets.("NewData").Select
For i = 1 To 7
Worksheets.("NewData").Cells( g + i, 4).FormulaR1C1= "=Vlookup(R[-" & VALUE & "]C[+1], Data!R1C1:R100C100, 2, False)"
VALUE=VALUE+2
Next i