Mlookup函数(任意位置查找和多条件查找)

一、用法介绍

=Mlookup(查找内容，查找区域,返回值所在的列数,第N个)

语法说明：

查找内容：除了单个值外，还可以选取多个单元格，进行多条件查找。
查找区域：同VLOOKUP
返回值的在列数：同VLOOKUP
第N个：值为1就返回第1个符合条件的，值为2就返回第2个符合条件的....当值为0值时，返回最后1个符合条件的值。

二、功能演示。

【例】如下图所示的入库表中，要求完成以下查找。

1、查找第2次电视的进货数量。

=Mlookup(A11,A2:D8,4,2)

2、查找电视的最后一次入库数量

=Mlookup(A11,A2:D8,4,0)

3、查找47寸电视的第1次进货数量。

=Mlookup(A11:B11,A2:D8,4,1)

4、实现筛选功能。

=Mlookup($B$10:$B$11,$A$1:$D$8,4,A14)

三、使用方法

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

1、按alt+F11（键盘上如果有FN键，还需要同时按FN)会打开VBE窗口，在窗口中点插入 - 模块。把下面的代码复制粘贴到右侧的空白区域中。

代码

Function Mlookup(rg, rgs As Range, L As Integer, M As Integer)

Dim arr1, ARR2, 列数

Dim R, n, K, X, cc, sr As String

arr1 = rg.Value

ARR2 = rgs

If VBA.IsArray(arr1) Then

For Each R In arr1

If R <> "" Then

cc = cc & R

列数 = 列数 + 1

End If

Next R

Else

cc = arr1

End If

If M > 0 Then '非查找最后一个

For X = 1 To UBound(ARR2)

sr = ""

If 列数 > 1 Then

For q = 1 To 列数

sr = sr & ARR2(X, q)

Next q

Else

sr = ARR2(X, 1)

End If

If sr = cc Then

K = K + 1

If K = M Then

Mlookup = ARR2(X, L)

Exit Function

End If

Next X

Else '查找最后一个

For X = UBound(ARR2) To 1 Step -1

sr = ""

If 列数 > 1 Then

For q = 1 To 列数

sr = sr & ARR2(X, q)

Next q

Else

sr = ARR2(X, 1)

End If

If sr = cc Then

Mlookup = ARR2(X, L)

Exit Function

End If

Next X

End If

Mlookup = ""

End Function

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

然后在这个表格中就可以象兰色一样使用Mlookup函数了。

标签：excel
分类：Excel学习| 发布：admin| 查看： | 发表时间：2015/2/6
原创文章如转载，请注明：转载自个人资讯网　http://www.zhangxinran.com/
本文链接：http://www.zhangxinran.com/post/1250.html

◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。

Mlookup函数(任意位置查找和多条件查找)

相关文章

直播马来西亚客机失事

置顶推荐

本类更新

热门文章