Excel-VBA自定义函数扩展VLOOKUP函数返回指定的结果

应用场景

工作表函数vlookup仅仅返回符合条件的第一个值,扩展后可指定返回的值

知识要点

1：开发一个名为Look的函数(包括4个参数，前两个为必选参数，后两个为可选参数)，第一参数代表查找对象，第二参数代表被查找区域，通常为多列的单元格区域

2：第三参数代表返回值所在的列数，例如默认为2列，第四参数代表返回第几个值，默认为第一个。

3：DO  LOOP  WHILE 循环，FIND函数

Function Look(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String

    Application.Volatile '声明为易失性函数

    Dim i As Long, Cell As Range, Str As String

    With 区域.Columns(1) '引用区域的第一列

        '如果引用区域第一个单元格等于查找的对象，那么将该单元格赋予变量cell;否则使用find方法查找，将找到的单元格赋予变量cell

        If .Cells(1) = 查找值 Then Set Cell = .Cells(1) Else Set Cell = .Find(查找值, LookIn:=xlValues, lookat:=xlWhole)

        If Not Cell Is Nothing Then '如果找到

            Str = Cell.Address   '记录单元格地址

            Do

                i = i 1  '累加变量

                '如果变量等于最后一个参数，那么将查找的单元格右边的值赋予look函数

                If i = 索引号 Then Look = Cell.Offset(0, 列 - 1): Exit Function

                Set Cell = 区域.Find(查找值, Cell, , xlWhole) '查找下一个

            Loop While Cell.Address <> Str

        Else

            Look = '' '如果找不到则直接返回空白

        End If

End Function