使用VBA将VLOOKUP插入到电子表格中，但可以调整表格数组的长度

让我先说我对VBA很新，并且明白可以有更简单，更简洁的方法来解决这个问题，但是我们来看看：

我有这个等式：

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

它插入一个VLOOKUP公式，并将列3列与表数组进行比较。 然后自动填充到CellNumbervariables的长度。

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

但是…我没有运气让它工作…

任何帮助都是极好的。

Answer 1

这在评论中被认为是一个解决scheme：

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