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可能会插入到其他单元格中，具体取决于数据文件的大小。此代码适用于本周，但由于更改而不会适用于下周。当我向现有数据添加数据时，我需要在数据的最后一个单元格之后的F列中插入vlookup，它需要在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

我需要在最后一行之后的单元格中插入一个vlookup，这可能因周而异

1 个答案: