怎么把Excel公式改成VBA

[nicholas_net]

=IF(ISNA(VLOOKUP($B$4:$B$8,$E$4:$F$5,2,FALSE)),"",VLOOKUP($B$4:$B$8,$E$4:$F$5,2,FALSE))

上面这段是Excel里面的公式，怎么改成VBA，然后再赋值给单元格？

[earthpea]

如果使用函数可以做到的工作，就不要用VBA去做，要知道，内置函数的运行效率与VBA编写的类似功能的函数的运行效率的差距完全是数量级的。

[Henry126]

IF NOT APPLICATION.WORKSHEETFUNCTION.ISNA(Application.WorksheetFunction.VLookup($B$4:$B$8,$E$4:$F$5,2,FALSE))
THEN Application.WorksheetFunction.VLookup($B$4:$B$8,$E$4:$F$5,2,FALSE)
我没有试验，可能不太对，你再调调喽