有一个数据表，如上图左边。
请问怎么才能快速转换成右边这样？

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
　　m = m + 1
　　t = Split(d(i))
　　t(0) = i
　　Cells(m + 1, "f").Resize(, UBound(t) + 1) = t
　Next
End Sub