VBA向下拖动Vlookup

Question

所有

我有一个大约1.000值的数据表，需要匹配的数量（值的数量每天都在变化）。这些金额可以在另一个标签"Data"中找到。

所以在VBA中使用Vlookup代码应该对我有帮助。我使用的代码是：

Sheets("Data").Range("E2") = Application.WorksheetFunction.VLookup(Sheets("Data").Range("D2"), Sheets("Blocked").Range("C:D"), 2, False)

结果应显示在column E中，lookup_value的行可以在column D中找到。表和列索引不会更改为{{1} }和Sheets("Blocked").Range("C:D")

这段代码给了我想要的结果但是当我试图用这个函数拖下公式时： 2

如何在不需要为每一行创建单独的vlookup的情况下拖动此公式？

Answer 1

您应该使用公式作为R1C1参考，然后您将能够向下拖动

Sheets("Data").Range("E2").FormulaR1C1 = "=VLookup('Data'!R[-1]C,'Blocked'!C[-2]:C[-1],2,0)"