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

1、以EXCEL2010为例，打开EXCEL。

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