各位帮忙看看这个如何实现，代码怎么写啊

卡度

如题
感谢

清风竹-

1. Sub 汇总人数()
   
2. Dim i&, Myr&, Arr, d, k, t
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Myr = [a65536].End(xlUp).Row
   
5. Arr = Range("a1:b" & Myr)
   
6.     For i = 2 To UBound(Arr)
   
7.         d(Arr(i, 1)) = d(Arr(i, 1)) & Arr(i, 2) & "，"
   
8.     Next
   
9. k = d.keys
   
10. t = d.items
    
11.      For i = 0 To d.Count - 1
    
12.         t(i) = Mid(t(i), 1, Len(t(i)) - 1)
    
13.     Next
    
14. [d:e].ClearContents
    
15. [d2].Resize(d.Count, 1) = Application.Transpose(k)
    
16. [e2].Resize(d.Count, 1) = Application.Transpose(t)
    
17. [d1].Resize(1, 2) = Array("班级", "姓名")
    
18. End Sub
    

复制代码

清风竹-

请看附件。