求助各位大神一个宏程序进行非正常排名

chxw68

参与一下。

lmx3517

chxw68 发表于 2024-12-12 16:15
参与一下。

感谢各位老师和版主的帮忙，现在又添加了很多列，原来以G列进行排序，现在要以AA列进行排序。其它要求不变，请老师看看如何修改，谢谢老师和版主了。

chxw68

lmx3517 发表于 2024-12-13 09:33
感谢各位老师和版主的帮忙，现在又添加了很多列，原来以G列进行排序，现在要以AA列进行排序。其它要求不 ...

把你的新文件传上来。

ykcbf1100

lmx3517 发表于 2024-12-13 09:33
感谢各位老师和版主的帮忙，现在又添加了很多列，原来以G列进行排序，现在要以AA列进行排序。其它要求不 ...

要养成一个好习惯，工作表，不要左边有空列，最上方有空行。你现在这样，很多时候代码得重写的。

lmx3517

chxw68 发表于 2024-12-13 09:57
把你的新文件传上来。

好的，谢谢这位老师或版主

lmx3517

chxw68 发表于 2024-12-13 09:57
把你的新文件传上来。

感谢这位老师或版主支持。

lmx3517

ykcbf1100 发表于 2024-12-13 10:07
要养成一个好习惯，工作表，不要左边有空列，最上方有空行。你现在这样，很多时候代码得重写的。

好的，谢谢老师或版主，空行或空列实际上是要有文字的，不是数值，排名主要是以最后一列（总分列）进行整体排序，在此表示感谢！！！

chxw68

修改好了。

ykcbf1100

原代码小改一下即可。

ykcbf1100

原代码中改二句代码即可。

1. Sub ykcbf()   '//2024.12.12
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, "aa").End(3).Row
   
6.         c = .UsedRange.Columns.Count
   
7.         For i = 5 To r
   
8.             s = .Cells(i, 4).Value
   
9.             d(s) = d(s) + 1
   
10.             If d(s) > 1 Then
    
11.                 .Cells(i, c + 1).Value = 1
    
12.             Else
    
13.                 .Cells(i, c + 1).Value = 9
    
14.             End If
    
15.         Next
    
16.         Set Rng = .Cells(5, 1).Resize(r - 4, c + 1)
    
17.         With Rng
    
18.             .Parent.Sort.SortFields.Clear
    
19.             .Sort key1:=.Item(c + 1), order1:=2, key2:=.Item(c), order2:=2, Header:=2
    
20.         End With
    
21.         .Columns(c + 1) = ""
    
22.     End With
    
23.     Set d = Nothing
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    
27. 
    

复制代码