如何按名次或得分进行升序排列

lybarcom

每组比赛结束，比赛成绩想按照名次1-8或者得分9、7、6、5、4、3、2、1的顺序排列，请老师能否给个vba程序，谢谢！

ykcbf1100

名次排序。。。

ykcbf1100

分块排序。。。

1. Sub ykcbf()   '//2024.7.29   排序
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("成绩表")
   
5.         r = .Cells.SpecialCells(xlCellTypeLastCell).Row
   
6.         arr = .[a1].Resize(r, 9)
   
7.         For i = 1 To r
   
8.             If InStr(arr(i, 1), "名次") Then k = k + 1: d(k) = i
   
9.         Next
   
10.         For k = 1 To d.Count
    
11.             r1 = d(k)
    
12.             If k = d.Count Then r2 = r Else r2 = d(k + 1) - 2
    
13.             Set Rng = .Cells(r1 + 1, 1).Resize(r2 - r1, 9)
    
14.             Rng.Sort .Cells(r1 + 1, 1), 1
    
15.         Next
    
16.     End With
    
17.     Set d = Nothing
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

lybarcom

ykcbf1100 发表于 2024-7-29 14:18
名次排序。。。

谢谢老师，我刚接触vba，真羡慕老师信手拈来的轻松感！祝老师天天快乐！

lybarcom

ykcbf1100 发表于 2024-7-29 14:18
分块排序。。。

老师，能否让有分数的排列在顶部，没有分的在下面

ykcbf1100

lybarcom 发表于 2024-7-29 18:23
老师，能否让有分数的排列在顶部，没有分的在下面

我看了我上传的附件，应该没问题啊。

lybarcom

ykcbf1100 发表于 2024-7-29 18:26
我看了我上传的附件，应该没问题啊。

老师才发现，给您看的排名次的函数我又改了，只显示前8名的名次，后面的不显示，用这个公式后，排序是没有名次的排列在前了，您看看。=IF(F4,TEXT(COUNTIF(F$4:F$16,"<="&F4),"[>8] "),"")

ykcbf1100

lybarcom 发表于 2024-7-29 18:38
老师才发现，给您看的排名次的函数我又改了，只显示前8名的名次，后面的不显示，用这个公式后，排序是没 ...

告诉我VBA密码。现在代码改不了。

lybarcom

ykcbf1100 发表于 2024-7-29 18:54
告诉我VBA密码。现在代码改不了。

老师辛苦，密码wdnba  和wdvba

ykcbf1100

lybarcom 发表于 2024-7-29 19:30
老师辛苦，密码wdnba  和wdvba

改好了。。。