使用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

效果如下

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/hankleo/p/11395722.html