:Excel中返回指定第几个重复值的自定义函数WLOOKUP

来源：百度文库编辑：九乡新闻网时间：2024/04/20 11:09:49

    在这个世界上，只有你想不到的，没有做不到的。高手永远都是高手啊。
    大家都知道Excel自带的VLOOKUP函数如果存在多个符合条件的结果时，只能返回符合条件的第一个结果，如果想知道第二个、第三个甚至是后面的就无能为力了。下面的自定义函数的作用和VLOOKUP一样，唯一不同的是，这个函数可以通过第三个参数来指定返回第几个符合条件的结果。值得珍藏的代码。(JT_man注：收录时已修改部分代码）

Function WLOOKUP(X As Range, M As Range, A As Byte, B As Byte)

    'X 要查找的内容
    'M 数据查询的单列区域（无需指定多列区域，与VLOOKUP函数的参数有区别）
    'A 返回第几个符合条件的结果
    'B 返回结果的列索引
    '原代码中，M As Variant

    Dim I As Integer, MR As Range, y As Integer
    I = Application.WorksheetFunction.CountIf(M, X)
    'Set M = Intersect(M.Parent.UsedRange, M)
    For Each MR In M
        If MR.Value = X Then
           y = y + 1
           If y = A Then
               WLOOKUP = MR.Offset(0, B - 1).Value
               Exit Function
           End If
        End If
     Next MR

End Function

使用方法示例：
要求：根据下述成绩表，得到所有姓名为“张3”的外语成绩。

Excel中返回指定第几个重复值的自定义函数WLOOKUP Excel中怎样自定义函数\ Excel中自定义函数\自定义排序\隐藏数据\打印工资条 C语言自定义函数返回数组的问题在Excel中自定义人民币大写转换函数 Excel中怎样自定义函数\自定义排序\隐藏数据\打印工资条返回指针的函数修饰函数和函数返回值的const的差别巧用Excel函数查找重复项 EXCEL函数中VLOOKUP的使用方法举例 EXCEL中查找函数的妙用 Excel中SumProduct函数的妙用 EXCEL函数中VLOOKUP的使用方法举例多行多列筛选不重复的值(EXCEL 多行多列筛选不重复的值(EXCEL) Excel 如何提取字符串中第一个非数字字符及之后的字符串 - Excel函数与公式 EXCEL中计算不重复单元格的个数在Excel中查找和删除重复值技巧在Excel中查找和删除重复值01 Excel隐藏函数Get.Cell（）返回单元格格式 c语言在串中查找指定字符的最后一个出现函数 c语言在串中查找指定字符串的第一次出现函数 EXCEL中vlookup函数用法 Excel中countif函数用法