VBA自定义函数，实现一对多查找，简单易用，通用。工具/原料moreMicrosoft office方法/步骤1/7分步阅读

打开Excel表格，鼠标右击工作表名称——查看代码

2/7

鼠标右键——插入——模块

3/7

双击模块，把以下代码粘贴到代码框中

Function nvlookup(zhi As String, rng As Range, col As Integer, val As Integer)

----自定义函数表达式：nvlookup(查找对象,查找范围，列号，精确查找)。精确查找的值填写0或者其他任意数字即可

Dim i As Long

arr = rng.Value 设定数组arr为所选查找范围的值

For i = 1 To UBound(arr) 循环行

If arr(i, 1) = zhi Then 判断范围内的第一列是否等于查找值

n = n + 1 用于下方使用

If n = 1 Then 判断第一个出现

mytxt = arr(i, col) 符合第一次出现时显示的结果形式

Else

mytxt = mytxt ; arr(i, col) 多个符合的结果，结果的显示方式用分号“；”间隔

End If

End If

Next i

If Len(mytxt) = 1 Then 判断前面过程中mytxt是否生成结果，如果生成则字符数大于等于1

nvlookup = mytxt mytxt查询到结果，自定义函数返回结果为mytxt的值

Else

nvlookup = 查找不到 查询不到结果，自定义函数返回查找不到

End If

End Function

4/7

点击左上角的Excel图标，或者点击右上角的关闭按钮/最小化按钮，返回Excel操作界面

5/7

在Excel中使用输入自定义的函数=NVLOKUP，按要求完整填写公式。

6/7

显示结果

7/7

如果不继续使用该函数，请先把结果复制——鼠标右键，选择性粘贴——值，然后移除模块。

注意事项

微软office全部版本可以运行，WPS部分版本支持VBA才可以使用。

选择查找范围列时，如果选择整列，会导致函数计算速度较慢，选择有效范围即可。