菜鸟的排名难题

lsc900707

各位大神请帮忙，怎么用SumProductl来给学生成绩排定班内名次？

cbtaja

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. r = Me.Cells(Rows.Count, 2).End(xlUp).Row
   
4. brr = Range("I2").Resize(r - 1)
   
5. crr = Range("J2").Resize(r - 1)
   
6. With Range("A2").Resize(r - 1, 10)
   
7.     .Sort .Cells(8), xlDescending, Header:=xlYes
   
8.     arr = .Value
   
9.     k = 1: sr = 2: cr = 2
   
10.     For i = 2 To UBound(arr)
    
11.         If arr(i, 8) < arr(cr, 8) Then k = i - sr + 1: cr = i
    
12.         brr(i, 1) = k
    
13.     Next
    
14.     Range("I2").Resize(r - 1) = brr
    
15.     .Sort .Cells(1), , Header:=xlYes
    
16.     arr = .Value
    
17.     k = 1: sr = 2: cr = 2
    
18.     For i = 2 To UBound(arr)
    
19.         If arr(i, 1) = arr(cr, 1) Then
    
20.             If arr(i, 8) < arr(cr, 8) Then k = i - sr + 1: cr = i
    
21.         Else
    
22.             k = 1: sr = i: cr = i
    
23.         End If
    
24.         crr(i, 1) = k
    
25.     Next
    
26.     Range("J2").Resize(r - 1) = crr
    
27. End With
    
28. End Sub

复制代码

willin2000

J3输入公式=RANK(H3,$H$3:$H$710), 下拉.

cbtaja

我的排名困扰.rar (74.41 KB, 下载次数: 20)

2016-5-12 09:40 上传

点击文件名下载附件

rtian

总成绩加了权重，便于不并列排名

1. Sub test()
   
2.     r = [a65536].End(xlUp).Row
   
3.     Range("h3", Cells(r, "j")).ClearContents
   
4.     cj = Range("c3", Cells(r, "g"))
   
5.     zf = Range("h3", Cells(r, "h"))
   
6.     jm = Range("i3", Cells(r, "i"))
   
7.     '----------总分：加成绩权重，便于不重复排名---------
   
8.     For i = 3 To r
   
9.         For j = 1 To 5
   
10.             zf(i - 2, 1) = zf(i - 2, 1) + cj(i - 2, j)
    
11.         Next
    
12.         zf(i - 2, 1) = zf(i - 2, 1) + cj(i - 2, 2) / zf(i - 2, 1) / 100 + Rnd() / 10000
    
13.     Next
    
14.     Range("h3", Cells(r, "h")) = zf
    
15.     '-----------年级成绩排名------------
    
16.     For i = 3 To r
    
17.         jm(i - 2, 1) = Application.WorksheetFunction.Rank(zf(i - 2, 1), Range("h3", Cells(r, "h")), 0)
    
18.     Next
    
19.     Range("i3", Cells(r, "i")) = jm
    
20.     '----------各班级排名------------
    
21.     s = [a3] & ",3;"
    
22.     For i = 3 To r
    
23.         If InStr(s, Cells(i, 1)) = 0 Then
    
24.             s = s & Cells(i, 1) & "," & i & ";"
    
25.         End If
    
26.     Next
    
27.     s = s & "," & r + 1
    
28.     bj = Split(s, ";")
    
29.     For i = 0 To UBound(bj) - 1
    
30.         a = Split(bj(i), ",")(1)
    
31.         b = Split(bj(i + 1), ",")(1) - 1
    
32.         c = Range(Cells(a, "h"), Cells(b, "h"))
    
33.         bm = Range(Cells(a, "j"), Cells(b, "j"))
    
34.         For j = a To b
    
35.             bm(j - a + 1, 1) = Application.WorksheetFunction.Rank(c(j - a + 1, 1), Range(Cells(a, "h"), Cells(b, "h")), 0)
    
36.         Next
    
37.         Range(Cells(a, "j"), Cells(b, "j")) = bm
    
38.     Next
    
39.     '------修正总成绩------
    
40.     For i = 3 To r
    
41.         zf(i - 2, 1) = Round(zf(i - 2, 1), 0)
    
42.     Next
    
43.     Range("h3", Cells(r, "h")) = zf
    
44. 
    
45. End Sub

复制代码

lsc900707

感谢大家的热心帮助，帖子很快有了回应。但是我的要求有点特别，就是按里面的实例和SumProductl函数来排定。哪位大神再帮帮我！

lsc900707

rtian 发表于 2016-5-12 10:04
总成绩加了权重，便于不并列排名

大神，我们计算没那么严格，总成绩不需加权重，允许有并列名次。

lsc900707

用SumProductl函数来排定班名，是不是比较麻烦？

lsc900707

木有答案？

lsc900707

cbtaja 发表于 2016-5-12 09:37

大师，运行结果不对吧？