这个要用到哪个公式呢？求教

Option Explicit
Sub abc()
　Dim i, a, m, t, d
　a = [a1].CurrentRegion.Resize(, 2).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 2 To UBound(a)
　　d(a(i, 1)) = d(a(i, 1)) & Space(1) & a(i, 2)
　Next
　For Each i In d.keys
　　t = Split(d(i))
　　t(0) = i
　　m = m + 1
　　Cells(m + 1, "d").Resize(, UBound(t) + 1) = t
　Next
End Sub