求助！如何将姓名和编号对应

@office8424 为什么我写的代码运行不了？

我也是学来的。先对编号列排序，G2录入公式：if(E2=E3,F2&","&F3,F2).公式下拉后出来结果，对于结果复制-选择性粘贴为数值，再对选择整 个表格，删除E列的重复项就可以了

用vba吧！

Sub duiying()
Dim i, j, found As Integer
Dim s As String
Cells(2, 8) = Cells(2, 5)
For i = 2 To Sheets(1).UsedRange.Rows.Count
found = 0
For j = 2 To Sheets(1).UsedRange.Rows.Count
If Cells(j, 8) = "" Then Exit For
If Cells(i, 5) = Cells(j, 8) Then
found = 1
End If
Next j
If found = 0 Then
Cells(j, 8) = Cells(i, 5)
End If
Next i
For i = 2 To Sheets(1).UsedRange.Rows.Count
If Cells(i, 8) = "" Then Exit For
s = ""
For j = 2 To Sheets(1).UsedRange.Rows.Count
If Cells(i, 8) = Cells(j, 5) Then s = s + CStr(Cells(j, 6)) + ","
Next j
s = Left(s, Len(s) - 1)
Cells(i, 9) = s
Next i
End Sub