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

1、以EXCEL2010为例，打开EXCEL。

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

3、复制粘贴以下代码：Function mymlookup(myword As Range, m鲻戟缒男ybook As Range, mycol As Int髫潋啜缅eger)Dim mysht As WorksheetSet mysht = ActiveSheetmaxrow = mysht.UsedRange.Rows.CountFor i = 1 To maxrowIf myword.Value Like "*" & mybook.Cells(i, 1) & "*" Thenmyresult = myresult & "," & mybook.Cells(i, mycol).ValueEnd IfNextmymlookup = Right(myresult, Len(myresult) - 1)End Function

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