'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function 多项查询(a As Range, b As Range, c As String)
For i = 1 To a.Rows.Count
If a.Cells(i, 1) = "" Then Exit For
If a.Cells(i, 1) = c And InStr(多项查询, b.Cells(i, 1)) = 0 Then 多项查询 = 多项查询 & "." & b.Cells(i, 1)
Next
多项查询 = Mid(多项查询, 2)
End Function
具体怎么操作呢亲
追答首先,第一列排序,然后,辅助列用if函数从下到上一段段的用逗号链接。
最后,第一列筛选到目标,其他列用VlookUp函数取得。