[已解决]任课教师教不同班级有不同得分的平均分

嘻嘻哈哈大傻瓜

任课教师教不同班级有不同得分，想一键得出其自己的平均分。并且所任教班级也合并一下，示例结果如下：


分层次合并平均分.rar (4.97 KB, 下载次数: 5)

2015-7-21 21:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-7-22 10:27

请看附件。

跳转到最佳答案楼层

grf1973

请看附件。

grf1973

1. Sub tt()
   
2.     arr = Sheet1.UsedRange
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     ReDim brr(1 To UBound(arr), 1 To 5)
   
6.     For j = 1 To UBound(arr, 2) Step 6
   
7.         For i = 2 To UBound(arr)
   
8.             xm = arr(i, j)    '姓名
   
9.             If Len(xm) > 0 Then
   
10.                 d1(xm) = d1(xm) + 1      '每个名字统计的次数（用于计算平均分）
    
11.                 If Not d.exists(xm) Then
    
12.                     n = n + 1
    
13.                     d(xm) = n
    
14.                     brr(n, 1) = xm
    
15.                     brr(n, 2) = arr(i, j + 1)
    
16.                     brr(n, 3) = arr(i, j + 2)
    
17.                     brr(n, 4) = arr(i, j + 4)
    
18.                 Else
    
19.                     p = d(xm)
    
20.                     brr(p, 3) = brr(p, 3) & "+" & arr(i, j + 2)
    
21.                     brr(p, 4) = brr(p, 4) + arr(i, j + 4)
    
22.                 End If
    
23.             End If
    
24.         Next
    
25.     Next
    
26.     For i = 1 To n       '计算平均分
    
27.         brr(i, 4) = Round(brr(i, 4) / d1(brr(i, 1)), 1)
    
28.     Next
    
29.     Sheet2.[a8].Resize(n, 4) = brr
    
30. End Sub
    

复制代码