电子表格查询多结果显示

一是最简单的办法就是筛选。点击筛选后，下拉菜单发现重复项，选择就找到了

二是在表格内，点击数据，里面有个重复项检查，版本不同，重复项的名字也有所差异

这个如果不想用自带的筛选功能，可以用VBA写代码来完成，代码如下：

Sub myfind()
Dim ar, cr(1 To 1000, 1 To 4)
Dim i&, j&, n&
m = Range("d65536").End(3).Row
ar = Range("a2:d" & m)
If Range("g2") = "" Then
    MsgBox "请输入查询对象名称！"
    Exit Sub
End If
For i = 1 To UBound(ar)
    If ar(i, 1) = Range("g2") Then
        n = n + 1
        For j = 1 To 4
            cr(n, j) = ar(i, j)
        Next j
    End If
Next i
Range("g4:j1000") = ""
Range("g4").Resize(n, 4) = cr
End Sub

代码效果如下：