在调用的函数名前加Application.Application.Lookup(Range("B6"), [{"210#","300#","360#","H430#","新380#";0.035,0.04,0.045,0.07,0.05}])
前函数名前加application.worksheetfunction.没注意过worksheetfunction是不是必须加上。。。你试一楼的吧。。如果不行的话在就在application.后面加个worksheetfunction.