关于在年级成绩表中提取各班前3名的姓名和成绩

ykcbf1100

凑个热闹。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.12
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).row
   
4.     Set rng = [a2].Resize(r - 1, 3)
   
5.     zrr = rng.Value
   
6.     rng.Sort Key1:=[b2], Order1:=1, Key2:=[c2], Order2:=2, Header:=2
   
7.     arr = rng.Value
   
8.     ReDim brr(1 To UBound(arr), 1 To 4)
   
9.     m = 1
   
10.     brr(m, 1) = "班级": brr(m, 2) = "姓名": brr(m, 3) = "班级排名": brr(m, 4) = "总分"
    
11.     For i = 1 To UBound(arr)
    
12.         s = arr(i, 2)
    
13.         If Not d.exists(s) Then
    
14.             m = m + 3
    
15.             d(s) = m
    
16.             For x = 1 To 3
    
17.                 brr(m - 3 + x, 1) = s
    
18.                 brr(m - 3 + x, 2) = arr(i + x - 1, 1)
    
19.                 brr(m - 3 + x, 3) = x
    
20.                 brr(m - 3 + x, 4) = arr(i + x - 1, 3)
    
21.             Next
    
22.         End If
    
23.     Next
    
24.     [a2].Resize(r - 1, 3) = zrr
    
25.     [g:h] = ""
    
26.     [g1:j1].Interior.Color = 49407
    
27.     With [g1].Resize(m, 4)
    
28.         .Value = brr
    
29.         .Borders.LineStyle = 1
    
30.         .HorizontalAlignment = xlCenter  '//列居中
    
31.         .VerticalAlignment = xlCenter
    
32.     End With
    
33.     zr = Array(7)
    
34.     hb 2, 7, 7, zr
    
35.     Set d = Nothing
    
36.     MsgBox "OK！"
    
37. End Sub

复制代码

一招秒杀

ykcbf1100 发表于 2024-4-12 10:55
参与一下。。。

SQL 处理数据，现成的原生的窗口排名函数，几十年前就有了，简单到1句就够了，分多行是为了注释。

ykcbf1100

一招秒杀 发表于 2024-4-12 11:58
SQL 处理数据，现成的原生的窗口排名函数，几十年前就有了，简单到1句就够了，分多行是为了注释。

好久不见。。。