一对多模糊查找

Function mylookup(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
mylookup = Right(myresult, Len(myresult) - 1)
End Function