Question

我正在尝试从工作簿vlookup到工作簿Daily_Report BOE.xlsx的{{1}}数据。

事情是，Sales wk02.xlsx中的行数可能会发生变化。因此，使用特定行号查找此信息将不起作用。你能帮忙吗？

我的代码：

Daily_Report BOE.xlsx

无论如何，我可以选择最后一行并提供数据吗？

Answer 1

尝试以下代码：

Dim LastRow As Long

LastRow = Workbooks("Daily_Report BOE.xlsx").Sheets("Nocturne").Cells(.Rows.Count, "A").End(xlUp).Row ' get last row with data in column A

' ~~~ change "Sheet1" to your sheet's name where you want to add this formula ~~~
Workbooks("Sales wk02.xlsx").Sheets("Sheet1").Range("C2").FormulaR1C1 = _
            "=VLOOKUP(RC[-2],'[Daily_Report BOE.xlsx]Nocturne'!R4C1:R" & LastRow & " C13,13,0)"

注意：无需使用Activate，Select和ActiveCell，您可以使用完全qalified Range代替

从另一个工作簿

1 个答案: