VBA Перетягніть вниз Vlookup - excel, vba, excel-vba, vlookup

Все

У мене є таблиця даних близько 1000 значень, які потребують відповідного розміру (кількість значень, що змінюються щодня). Ці суми можна знайти в іншій вкладці "Data".

тому використання Vlookup коду в VBA повинно мені допомогти. Код, який я використовую:

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

Результат повинен з'явитися в column E відповідає рядком lookup_value які можна знайти в column DІндекс таблиці та стовпця не змінюється Sheets("Blocked").Range("C:D")і 2

Цей код дає мені результат, який я хотів, але, як я намагався перетягнути формулу з цією функцією: Range("E2").AutoFill Destination:=Range("E2:E440")

Як можна перетягнути цю формулу без необхідності створювати окремі вікна перегляду для кожного рядка?

Відповіді:

Ви повинні використовувати формулу як посилання R1C1, а потім u зможете перетягнути вниз

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