Function Desc(ProdNum)Desc = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 2, 0)End FunctionFunction DAdded(ProdNum)DAdded = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 3, 0)End FunctionFunction Status(ProdNum)Status = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 4, 0)End Function

效果如下