Question

我正在单元格U2中的Col U（XXX）中执行vlookup，我想将vlookup公式复制到U列中的最后一个单元格。

以下是我正在使用的代码：

Range("U1").Value = "XXX"
Range("U2").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[XXX.xlsm]GLOBAL_HEADCOUNT_export'!C1:C32,30,0)"

Selection.End(xlDown).Select
ActiveCell.Offset(0, 21).Select (using 21 since its the U col)
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown

但是我无法执行相同的操作。有人可以帮我吗？

Answer 1

我没有检查 VLOOKUP 公式，但是如果要将此公式复制到列U，直到列U 中的最后一个现有单元格，请使用简单代码如下：

last_row = Cells(Rows.count, "U").End(xlUp).Row

Range("U1").Value = "XXX"  
Range("U2:U" & last_row).FormulaR1C1 = "=VLOOKUP(RC[-1],'[XXX.xlsm]GLOBAL_HEADCOUNT_export'!C1:C32,30,0)"

Vlookup直到最后一个col cell - VBA

1 个答案: