如图,由于G行的数值是一样的,但是H行结果都不同,只取了第一列H2的结果,H3的没显示出来,怎么让他显示出H3所有当列的数值啊
Function 多项查询(a As Range, b As Range, c As String, Optional ByVal fgf As String = "|")
For i = 1 To a.Cells(1, 1).End(xlDown).Row Step 1
' If a.Cells(i, 1) = "" Then Exit For
' If a.Cells(i, 1) = c And InStr(多项查询, b.Cells(i, 1)) = 0 Then 多项查询 = 多项查询 & fgf & b.Cells(i, 1) '去重
If a.Cells(i, 1) = c Then 多项查询 = 多项查询 & fgf & b.Cells(i, 1)
Next
多项查询 = Mid(多项查询, 2)
If 多项查询 = "" Then 多项查询 = "不缺"
End Function