有重复值，怎么用vlookup函数返回查找到的所有的值

神说，要有大神，便有了大神

自定义了一个look 函数，类似于vlookup的参数，但是参数比vlookup少一个。
Function look(a As String, br As Range, col As Integer)
Dim d As String
For Each i In Application.Index(br, 0, 1)
If i.Value = a and i<>"" Then
d = d & "、" & i.Offset(0, col - 1)
End If
Next
look = Mid(d, 2, Len(d))
End Function
定义好了公式是
=look(E2,A:B,2)

数据透视表可破。