Vlookup до последней ячейки col - VBA

Question

Я выполняю vlookup в Col U (XXX) в ячейке U2, и я хочу скопировать формулу 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

Я не проверял формулу ВПРА, но если вы хотите, чтобы скопировать эту формулу в колонку 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)"