学习Excel技术，关注微信公众号：excelperfect
标签：VBA，自定义函数这个自定义函数来自于forum.ozgrid.com，可以在指定表中查找多个值，并返回一组结果，而这些结果可以传递给另一个函数。该函数代码如下：Public Function MultiVLookup(ReferenceIDs As String, Table As Range, TargetColumn As Integer, Optional Delimeter As String = ",") As Variant() Dim IDs Dim Length As Long Dim i As Long IDs = Split(ReferenceIDs, Delimeter, -1, vbTextCompare) Length = (UBound(IDs) - LBound(IDs) + 1) If Length = 0 Then MultiVLookup = Null Exit Function End If Dim Result() As Variant ReDim Result(Length - 1) For i = 0 To Length - 1 Result(i) = Application.WorksheetFunction.VLookup(IDs(i), Table, TargetColumn, False) Next MultiVLookup = ResultEnd Function其中，参数是ReferenceIDs代表要查找的值；参数Table是
………………………………
