表名不同时vlookup的Vba代码

Question

我正在创建我的第一个宏，说实话，我只通过做研究学到了一点，但我有问题插入一个Vlookup在一个范围内，因为Sheet1将始终有不同的名称取决于周#

我已经试过了

Range("I2:I" & lr3).Function = "VLookup(A2," & Sheet1.Range("A1:I" & lr1) & ", 9, 0)"

lr(和number)被用来标识表1、2或3中使用的行数，有什么建议吗?

Answer 1

您可以尝试使用Application.Worksheetfunction:

Sub Lookup()
Dim ws as worksheet: set ws =   Thisworkbook.Worksheets(“Sheet1”)

Ws.Range(“I2:I” & lr3).Value = Application.Worksheetfunction.Vlookup(“A2”, ws.Range(“A1:I” & lr1).Address, 9, 0)
End Sub