如何将左表中重复的名字的次数统计到右边相应的时间里

fangfhf

求助，刚上传一份少了内容。我需要将左边的名字出现次数，统计到右边对应的表格中

shiruiqiang

最简单的字典处理

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a1:k" & r)
   
9.         For i = 2 To UBound(arr)
   
10.             If arr(i, 1) <> "班级" Then
    
11.                 If Len(arr(i, 1)) <> 0 Then
    
12.                     zz = arr(i, 1)
    
13.                 End If
    
14.                 For j = 2 To UBound(arr, 2)
    
15.                     If Len(arr(i, j)) <> 0 Then
    
16.                         xm = arr(i, j) & "+" & zz
    
17.                         d(xm) = d(xm) + 1
    
18.                     End If
    
19.                 Next
    
20.             End If
    
21.         Next
    
22.         r = .Cells(.Rows.Count, 13).End(xlUp).Row
    
23.         arr = .Range("m1:r" & r)
    
24.         For i = 2 To UBound(arr)
    
25.             For j = 2 To UBound(arr, 2)
    
26.                 xm = arr(i, 1) & "+" & arr(1, j)
    
27.                 If d.exists(xm) Then
    
28.                     arr(i, j) = d(xm)
    
29.                 End If
    
30.             Next
    
31.         Next
    
32.         .Range("m1:r" & r) = arr
    
33.         
    
34.     End With
    
35. End Sub
    

复制代码

chxw68

详见附件。

fangfhf

太感谢了！太感谢了！！