Excel界面ALT+F11，VBE窗口，点“插入”----“模块”
粘贴以下代码。
运行这个宏或退出VBE窗口，回到Excel界面,alt+F8运行这个宏就可以了。
Sub 查找()
For j = 3 To Range("C65536").End(xlUp).Row
m = ""
For i = 1 To Range("b65536").End(xlUp).Row
If Cells(i, 2) = Cells(j, 3) Then
m = m & Cells(i, 1) & "、"
End If
Next
Cells(j, 4) = m
If Cells(j, 4) <> "" Then Cells(j, 4) = Left(m, Len(m) - 1)
Next j
End Sub
