使用VBA达到vlookup效果 

Function Desc(ProdNum)

Desc = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 2, 0)

End Function

Function DAdded(ProdNum)

DAdded = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 3, 0)

End Function

Function Status(ProdNum)

Status = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 4, 0)

End Function

效果如下

posted @ 2019-08-22 17:33  hank-li  阅读(1345)  评论(0)  编辑  收藏  举报