使用indirect（）vba代码调试vlookup（）

Question

我使用了vlookup()函数和indirect()。

在工作表中效果很好

=VLOOKUP(I$1,INDIRECT("'"&$A3&"'!"&"A:B"),2,0).

但是，一旦将其放入vba，它会返回错误，提示

  

编译错误：预期：列表分隔符或

我的VBA功能代码如下：

Function Haha(title As Variant, sht As Variant)

    Haha= VLOOKUP(title,INDIRECT("'"&sht&"'!"&"A:B"),2,0)

End Function

Answer 1

您不能只用VBA编写公式-它们不是同一语言。您可以使用：

Function Haha(title As Variant, sht As Variant)

    Haha= Application.VLOOKUP(title,Sheets(sht).Range("A:B"),2,0)

End Function