[已解决]计算各班各科（分数从高到低92%人数）的平均 成绩，能否实现按钮一键生成，另外...

fanyixiao123

问题：1、上表是按公式计算各班各科（分数从高到低92%人数）的平均   成绩，能否实现按钮一键生成，另外加一个清除数据按钮。
如：1班50人，语文从高到低排序，截取92%*50=46人的成绩总和计算平均
2、我想长期用它，下次只要更改左边全级各科成绩数据，上表就自动生成新的平均成绩，班级顺序不变，不受人数限制（每次考试人数不一，因为有缺考等）

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-6 17:06

………………

跳转到最佳答案楼层

tgydslr

完全可以
关键是你是想学会方法还是光解决问题

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, d2, rng As Range, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. [r4:aa17].ClearContents
   
7. brr = [q3:aa17]
   
8. ReDim crr(1 To UBound(brr) - 1, 1 To UBound(brr, 2) - 1)
   
9. For i = 2 To UBound(arr)
   
10.     d(arr(i, 3)) = d(arr(i, 3)) + 1
    
11.     d2(arr(i, 3)) = d2(arr(i, 3)) & " " & i
    
12. Next
    
13. For i = 2 To UBound(brr)
    
14.     n = Int(d(brr(i, 1)) * 0.92)
    
15.     x = Split(d2(brr(i, 1)))
    
16.     y1 = Val(x(1)): y2 = Val(x(UBound(x)))
    
17.     For j = 2 To UBound(brr, 2)
    
18.         l = Application.Match(brr(1, j), [a1:m1], 0)
    
19.         Set rng = Range(Cells(y1, l), Cells(y2, l))
    
20.         s = 0
    
21.         For k = 1 To n
    
22.             s = s + Application.Large(rng, k)
    
23.         Next
    
24.         crr(i - 1, j - 1) = s / n
    
25.     Next
    
26. Next
    
27. Range("r4").Resize(UBound(crr), UBound(crr, 2)) = crr
    
28. End Sub
    

复制代码

dsmch

………………

su45

来了解决问题的人了！

fanyixiao123

tgydslr 发表于 2014-5-5 17:24
完全可以
关键是你是想学会方法还是光解决问题

想学方法,可是对我来说太难了,

fanyixiao123

dsmch 发表于 2014-5-5 18:29
………………

计算结果不对，应该是（公式计算：AVERAGE(LARGE(IF($C$2:$C$614=$O9,I$2:I$614),ROW(INDIRECT("1:"&ROUND(COUNTIF($C$2:$C$614,$O9)*0.92,)))))）而你的计算结果是

dsmch

………………

1577715381

1577715381

我有计算任意百分比平均值的程序，需要的话可以加我QQ1577715381