VLOOKUP не применяется ко всем строкам через VBA

Question

Я применяю VLOOKUP для одного столбца, используя 2 листа. Код работает, но он применяется только в одной ячейке. Я хочу применить ко всем ячейкам ниже заголовка. Ниже мой код, который я пытаюсь выполнить:

ESheet.Range("C2").Formula = "=VLOOKUP(B2, Roles!$A:$B, 2, FALSE)"

Answer 1

Используйте этот код, пожалуйста:

Sub VlookupAlColumn()
 Dim ESheet As Worksheet, lastR As Long
 'Set ESheet = ActiveSheet 'only for me, for testing reason
 lastR = ESheet.Range("C" & Cells.Rows.Count).End(xlUp).row
 ESheet.Range("C2:C" & lastR).Formula = "=VLOOKUP(B2, Roles!$A:$B, 2, FALSE)"
End Sub