下载APP
首页 > 会计实务 > 会计人员 > 会计培训

Xlookup、Vlookup请走开,强大的Wlookup函数来了!

来源: Excel精英培训 2019-09-04
普通

前天,为大家介绍了关于Vlookup接班人Xlookup函数的介绍,一方面惊叹于Xlookup强大的查找功能,另一方面也担心自已只能远观而不能使用。毕竟付费office365的用户占极少数。点击进入查看>>

那怎么办?下面为大家编写了一个比Xlookup更强大的查找函数,它就是Mlookup的升级版:

Wlookup函数

一、 用法介绍

= Wlookup(查找内容查找值范围返回值范围查找模式)

语法说明:

    • 查找内容:查找的值

    • 查找值范围:在该区域/数组中查找

    • 返回值范围:根据在第2个参数中查找结果,返回该数组中对应位置的值

    • 查找模式

          -2 是区间查找

          -1 是一对多查找

           0 查找最后一个

           N 查找第N个符合条件的值

二、 功能演示

1、 查找第1个符合条件的值

=Wlookup(A11,A2:A7,C2:C7)

Wlookup函数

2、 从右向左查找

=Wlookup(A11,B2:B7,A2:A7)

Wlookup函数

3、 按行上下查找

=Wlookup(B5,A1:D1,A2:D2)

Wlookup函数

4、 多条件查找

=Wlookup(A11&B11,A2:A7&B2:B7,D2:D7)

注:多条件查找只需要用&连接即可。

Wlookup函数

5、 查找第N个符合条件的值

=Wlookup(A11,B2:B7,C2:C7, N)

如查找第2个

=Wlookup(A11,B2:B7,C2:C7, 2)

注:最后一个参数是正整数时,查找返回对应第N个符合条件的值。如果是多列查找第N个,也只需用&连接即可,同4。

Wlookup函数

6、 查找最后一个

=Wlookup(A11,B2:B7,C2:C7,0)

注:第4个参数为0时,查找最后一个

Wlookup函数

7、 一对多查找

Wlookup可以同时返回所有符合条件的结果,并用逗号连接。

=Wlookup(A11,B2:B7,C2:C7,-1)

注:第4个参数为-1时,为一对多查找

Wlookup函数

8、 区间查找

=Wlookup(A11,A2:A7,B2:B7,-2)

注:当第4个参数为-2时,可以实现区间匹配查找。

Wlookup函数

9、 扩展应用:筛选功能

=IFERROR(Wlookup($A$11,$B$2:$B$7,A$2:A$7,ROW(A1)),"")

注:因为Wlookup可以返回第N个值,所以这里用row函数就可以逐个返回所有值。

Wlookup函数

筛选演示:

Wlookup函数

三、 使用方法

Wlookup要想在你的表格中也能使用,需要按下面的步骤操作。

1、 按alt+F11(或任一工作表标签右键 - 查看代码)会打开VBE窗口,在窗口中点插入 - 模块。把下面的代码复制粘贴到右侧的空白区域中。

Excel

代码本文最后附下载地址

Function Wlookup(V, vY, vh, Optional m)

 Dim arr, arr1, arr2()

 Dim k As Integer

 arr = vY

 arr1 = vh

       If UBound(arr1) = 1 Then

       arr1 = Application.Transpose(arr1)

       arr = Application.Transpose(arr)

       End If

ReDim arr2(1 To 1)

 For x = 1 To UBound(arr1)

    If arr(x, 1) = V Then

       Wlookup = arr1(x, 1)

       If IsMissing(m) Then

         Exit Function

       Else

        k = k + 1

        ReDim Preserve arr2(1 To k)

        arr2(k) = arr1(x, 1)

       End If

    End If

  Next x

  If m = 0 Then

    Wlookup = arr2(k)

  ElseIf m = -1 Then

   Wlookup = Join(arr2, ",")

  ElseIf m = -2 Then

   Wlookup = JS(V, vY, vh)

  Else

    Wlookup = arr2(m)

  End If

End Function


Function JS(J1, R1, R2) '取接近值

Dim Jarr1, Jarr2

Dim x

 Jarr1 = R1

 Jarr2 = R2


For x = 1 To UBound(Jarr1)

  If x + 1 > UBound(Jarr1) Then

       JS = Jarr2(x, 1)

       Exit Function

  ElseIf J1 >= Jarr1(x, 1) And J1 < Jarr1(x + 1, 1) Then

       JS = Jarr2(x, 1)

       Exit Function

  End If

Next x

End Function

2、 当前文件另存为“启用宏的工作簿”格式

Excel

以后这个工作簿中就可以正常使用Wlookup函数了

综合Mlookup和Xlookup的优点,升级成了Wlookup函数,可以说功能上比前2个函数都要强大。

对财会人员来说,掌握Excel技巧可以让工作更加省时省力,想要学习更多的excel技巧,来加入正保会计网校胡雪飞老师的《8小时Excel中、高级进阶班》~~带你掌握Excel使用技巧,成为Excel高手,提高工作效率。点击进入>>

Excel

学习更多财税资讯、财经法规、专家问答、能力测评、免费直播,可以查看正保会计网校会计实务频道,点击进入>>

今日热搜
热点推荐:
做账报税
做账报税私教班第十一季
加入会计实务交流圈

微信识别二维码

扫码找组织

回复:资料包

立即免费获取

有奖原创征稿
取消
复制链接,粘贴给您的好友

复制链接,在微信、QQ等聊天窗口即可将此信息分享给朋友
客服