使用VBA将VLOOKUP插入电子表格，但表格数组长度可调

Question

让我先说一下我对VBA很新，并且明白可以采用更简单，更清洁的方式解决这个问题，但是我们走了：

我有这个等式：

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],R2C16:R188C16,1,FALSE)"
Selection.AutoFill Destination:=Range("Q2", "Q" & CellNumber), Type:=xlFillDefault   

它插入一个VLOOKUP方程，并将第3列列与表数组进行比较。然后自动填充到CellNumber变量长度。

问题是我希望表数组长度可调，并在VLOOKUP方程中使用CellNumber，以便相应地改变。

但是......我没有运气让它发挥作用......

任何帮助都会很棒。

Answer 1

这被认为是评论中的解决方案：

Range("Q2", "Q" & CellNumber).FormulaR1C1 = "=VLOOKUP(RC[-3],R2C16:R" & CellNumber & "C16,1,FALSE)"