Excel中按条件合并字符串

A列相同的名称时，把A列相同的只取一个，然后将A相同值的B列字符串合并，看文件

假设第一个“张三”在单元格A5里。
代码如下：


Sub test()
Dim i, j As Integer
Dim xRng As Range
Range("E5:E999").ClearContents
For i = 5 To Range("A9999").End(xlUp).Row
Set xRng = Range("E5:E999").Find(Range("A" & i), LookAt:=xlWhole)
If xRng Is Nothing Then
Set xRng = Range("E999").End(xlUp).Offset(1, 0)
xRng = Range("A" & i)
xRng.Offset(0, 1) = Range("B" & i)
xRng.Offset(0, 2) = Range("C" & i)
Else
xRng.Offset(0, 2) = xRng.Offset(0, 2) & "/" & Range("C" & i)
End If
Next i
End Sub

=PHONETIC((INDIRECT("r"&MATCH(E1,A:A,0)&"c3:R"&MATCH(E1,A:A,0)-1+COUNTIF(A:A,E1)&"c3",0)))