VBA的可以不?
Sub test()
Dim arr, i&, dic As Object
arr = Range("A1").CurrentRegion.Value
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If dic.exists(arr(i, 1)) Then
dic(arr(i, 1)) = dic(arr(i, 1)) & "、" & arr(i, 2)
Else
dic(arr(i, 1)) = arr(i, 2)
End If
Next i
aRange("d2").Resize(dic.Count) = Application.Transpose(dic.keys)
Range("e2").Resize(dic.Count) = Application.Transpose(dic.items)
End Sub
Sub test()
Dim arr, i&, dic As Object
arr = Range("A1").CurrentRegion.Value
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If dic.exists(arr(i, 1)) Then
dic(arr(i, 1)) = dic(arr(i, 1)) & "、" & arr(i, 2)
Else
dic(arr(i, 1)) = arr(i, 2)
End If
Next i
aRange("d2").Resize(dic.Count) = Application.Transpose(dic.keys)
Range("e2").Resize(dic.Count) = Application.Transpose(dic.items)
End Sub