前天，為大家介紹了關(guān)于Vlookup接班人Xlookup函數(shù)的介紹，一方面驚嘆于Xlookup強(qiáng)大的查找功能，另一方面也擔(dān)心自已只能遠(yuǎn)觀(guān)而不能使用。畢竟付費(fèi)office365的用戶(hù)占極少數(shù)。點(diǎn)擊進(jìn)入查看>>

那怎么辦？下面為大家編寫(xiě)了一個(gè)比Xlookup更強(qiáng)大的查找函數(shù)，它就是Mlookup的升級(jí)版：

Wlookup函數(shù)

一、 用法介紹

= Wlookup(查找內(nèi)容，查找值范圍，返回值范圍，查找模式)

語(yǔ)法說(shuō)明：

    ? 查找內(nèi)容：查找的值

    ? 查找值范圍：在該區(qū)域/數(shù)組中查找

    ? 返回值范圍：根據(jù)在第2個(gè)參數(shù)中查找結(jié)果，返回該數(shù)組中對(duì)應(yīng)位置的值

    ? 查找模式：

          -2 是區(qū)間查找

          -1 是一對(duì)多查找

           0 查找最后一個(gè)

           N 查找第N個(gè)符合條件的值

二、 功能演示

1、 查找第1個(gè)符合條件的值

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

2、 從右向左查找

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

3、 按行上下查找

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

4、 多條件查找

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

注：多條件查找只需要用&連接即可。

5、 查找第N個(gè)符合條件的值

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

如查找第2個(gè)

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

注：最后一個(gè)參數(shù)是正整數(shù)時(shí)，查找返回對(duì)應(yīng)第N個(gè)符合條件的值。如果是多列查找第N個(gè)，也只需用&連接即可，同4。

6、 查找最后一個(gè)

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

注：第4個(gè)參數(shù)為0時(shí)，查找最后一個(gè)

7、 一對(duì)多查找

Wlookup可以同時(shí)返回所有符合條件的結(jié)果，并用逗號(hào)連接。

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

注：第4個(gè)參數(shù)為-1時(shí)，為一對(duì)多查找

8、 區(qū)間查找

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

注：當(dāng)?shù)?個(gè)參數(shù)為-2時(shí)，可以實(shí)現(xiàn)區(qū)間匹配查找。

9、 擴(kuò)展應(yīng)用：篩選功能

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

注：因?yàn)閃lookup可以返回第N個(gè)值，所以這里用row函數(shù)就可以逐個(gè)返回所有值。

篩選演示：

三、 使用方法

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

1、 按alt+F11（或任一工作表標(biāo)簽右鍵 - 查看代碼）會(huì)打開(kāi)VBE窗口，在窗口中點(diǎn)插入 - 模塊。把下面的代碼復(fù)制粘貼到右側(cè)的空白區(qū)域中。

代碼（本文最后附下載地址）

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、 當(dāng)前文件另存為“啟用宏的工作簿”格式

以后這個(gè)工作簿中就可以正常使用Wlookup函數(shù)了

綜合Mlookup和Xlookup的優(yōu)點(diǎn)，升級(jí)成了Wlookup函數(shù)，可以說(shuō)功能上比前2個(gè)函數(shù)都要強(qiáng)大。

對(duì)財(cái)會(huì)人員來(lái)說(shuō)，掌握Excel技巧可以讓工作更加省時(shí)省力，想要學(xué)習(xí)更多的excel技巧，來(lái)加入正保會(huì)計(jì)網(wǎng)校胡雪飛老師的《8小時(shí)Excel中、高級(jí)進(jìn)階班》吧~~帶你掌握Excel使用技巧，成為Excel高手，提高工作效率。點(diǎn)擊進(jìn)入>>

學(xué)習(xí)更多財(cái)稅資訊、財(cái)經(jīng)法規(guī)、專(zhuān)家問(wèn)答、能力測(cè)評(píng)、免費(fèi)直播，可以查看正保會(huì)計(jì)網(wǎng)校會(huì)計(jì)實(shí)務(wù)頻道，點(diǎn)擊進(jìn)入>>