如何使用 VBA 执行带有动态 lookup_value 的 excel vlookup？

Question

我是 VBA 新手，需要使用动态 lookup_value 执行 vlookup。原因是实际的 lookup_value 列可以位于不同输入工作表的不同列索引上。

原始的 vlookup 公式如下所示：

"=VLOOKUP(C2,lookup!$A$2:$B$14,2,FALSE)" 'static vlookup

我想要完成的应该是这样的：

1) 查找内部带有lookup_value的实际列索引（在上述情况下为C2）

With ws
    Set FindRng = .Rows(1).Find(what:="Column Name") ' should be 3 for C
        FiltCol = FindRng.Column ' get the column number where "Column Name" was found
End With

2) 动态设置lookup_value（在本例中为C2）

Dim dynamic_lookup_value as Range
dynamic_lookup_value = ws.Cells(FiltCol, 2) ' should be column C cell 2

3) 将 lookup_value 的动态引用设置为实际的 vlookup 公式（即，将硬编码的 C2 替换为 C2 的引用）

foobar = "=VLOOKUP(dynamic_lookup_value,lookup!$A$2:$B$14,2,FALSE)" 'dynamic vlookup

但是，(3) 产生Run-time error '91' Object variable or With-block variable not set。

如何使用 VBA 执行带有动态 lookup_value 的 excel vlookup？

Answer 1

首先，您将此处的列和行颠倒过来：

ws.Cells(FiltCol, 2)

应该是：

ws.Cells(2,FiltCol) 

第二次设置范围：

Set dynamic_lookup_value = ws.Cells(2,FiltCol) 

那么你不要将变量放在引号内，而是将它们与&连接起来

foobar = "=VLOOKUP(" & dynamic_lookup_value.Address(0,0) & ",lookup!$A$2:$B$14,2,FALSE)" 

另一条建议：

FiltCol = FindRng.Column

如果找不到该值将出错。将其放在 If 语句中以检查是否找到该值：

If  not FindRng is nothing Then
    ...
End IF