Мне нужно вставить vlookup в ячейку после последней строки, которая может меняться от недели к неделе

Question

Sub vlookup
    Dim TR As Long
    TR = Range("C" & Rows.Count).End(xlUp).Row
    Range("F46").Formula ="=Vlookup(C46,OpenDCSInvoices!$A:$C, 3, False)"
    Range("F46").Copy
    Range("F46:F" & TR).PasteSpecial xlPasteAll
End sub

Поскольку это еженедельный отчет, он варьируется, поэтому vlookup может быть вставлен в другую ячейку в зависимости от того, насколько велик или мал размер файла данных. Этот код работает на этой неделе, но он не будет работать на следующей неделе, так как он изменится. Мне нужно вставить vlookup в столбец F после последней ячейки данных, так как я добавляю к существующим данным, и он должен найти значение в столбце C, смежное с тем, где будет запускаться vlookup. Спасибо, и все помогает, когда я застрял.

Answer 1

Попробуйте, не на 100% уверен, что понял. Вы можете изменить имя переменной на что-то лучшее.

Sub vlookup()
    Dim TR As Long, TRf As Long
    TR = Range("C" & Rows.count).End(xlUp).Row
    TRf = Range("F" & Rows.count).End(xlUp).Row + 1
    Range("F" & TRf & ":F" & TR).Formula = "=Vlookup(C" & TRf & ",OpenDCSInvoices!$A:$C, 3, False)"
End Sub