用间接() 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