用VBA轻松搞定！
把文件给我，我在你的文件里直接编程。

Sub run() '使用前务必在表格中按A列进行扩展排序
Dim i As Integer
Dim j As Integer
Dim k As Integer

j = 1
i = 1

one:
If Cells(i, 1) = Then Exit Sub '如果遇到空行就停止，也就是到了A列的尾
k = 2
For j = i + 1 To 10000
If Cells(j, 1) = Cells(i, 1) Then
k = k + 1
Cells(i, k) = Cells(j, 2)
Else
Exit For
End If
Next
i = j
GoTo one

End Sub

========================================
= 您的问题==我的课题 奉献知识==辉煌生命 =
= 黑龙江省 张志晨 =
========================================