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

效果如下