如何实现vlookup一对多模糊查找

1、以EXCEL2010为例，打开EXCEL。

2、同时按下“Alt+F11”-->点击"插入"-->选择"模块"，进入编程界面，准备输入自定义函数代码。

3、复制粘贴以下代码：

Function mymlookup(myword As Range, mybook As Range, mycol As Integer)

Dim mysht As Worksheet

Set mysht = ActiveSheet

maxrow = mysht.UsedRange.Rows.Count

For i = 1 To maxrow

If myword.Value Like "*" & mybook.Cells(i, 1) & "*" Then

myresult = myresult & "," & mybook.Cells(i, mycol).Value

End If

Next

mymlookup = Right(myresult, Len(myresult) - 1)

End Function

4、关闭编程窗口，返回原EXCEL界面，现在已经自定义了mymlookup函数，可直接使用了，效果见图。