在一个子程序中使用 VBA 进行多个 Vlookup

Question

我正在尝试使用来自同一工作簿中另一个名为“Go Live Data”的工作表的 vlookup 填充工作表中的多个列，直到范围的末尾。

因此，根据工作表中从 A6 开始的值，我想在工作表“Go Live Data”中查找从 U6 开始到选项卡中填写的数据末尾的单元格的范围 A:K（此会动态变化）。我想对以 V6 和 W6 开头的单元格重复此操作。

这是我现在拥有的代码，但它没有填充。

Sub VlookupGoLiveandBOP()


Dim Rng As Range, Dn As Range
Set Rng = Range(Range("A6"), Range("A" & Rows.Count).End(xlUp))
With Range("U6")
  .Formula = "=IF(ISNA(VLOOKUP(A6,Go Live 
Data!$A:$K,2,FALSE)),"""",VLOOKUP(A6,Go Live Data!$A:$K,2,FALSE))"
    .AutoFill Destination:=Rng.Offset(, 66)

With Range("v6")
  .Formula = "=IF(ISNA(VLOOKUP(A6,Go Live 
Data!$A:$K,3,FALSE)),"""",VLOOKUP(A6,Go Live Data!$A:$K,3,FALSE))"
    .AutoFill Destination:=Rng.Offset(, 66)


With Range("w6")
  .Formula = "=IF(ISNA(VLOOKUP(A6,Go Live 
Data!$A:$K,4,FALSE)),"""",VLOOKUP(A6,Go Live Data!$A:$K,4,FALSE))"
    .AutoFill Destination:=Rng.Offset(, 66)

End With
Rng.Offset(, 66).Value = Rng.Offset(, 66).Value

End Sub

我是不是走错了路？感谢您的帮助。

Answer 1

试试下面的代码，它将帮助您正确分配VLookup 范围。

使用LKUpRng.Address(True, True, xlA1, xlExternal) 时，第四个参数xlExternal 还会添加工作表的名称（如果需要，还可以添加工作簿）以及所需的所有' 和!。

代码

Option Explicit

Sub VlookupGoLiveandBOP()

Dim Rng As Range, Dn As Range
Dim LKUpRng As Range
Dim LkUpStr As String

Set LKUpRng = Sheets("Go Live Data").Range("A:K")    
LkUpStr = LKUpRng.Address(True, True, xlA1, xlExternal) '<-- get the Range as a String, including the sheet's name

Set Rng = Range(Range("A6"), Range("A" & Rows.Count).End(xlUp))

Range("U6").Formula = "=IF(ISNA(VLOOKUP(A6," & LkUpStr & ",2,FALSE)),"""",VLOOKUP(A6," & LkUpStr & ",2,FALSE))"

End Sub