为什么我的排序出现异常？

gmts

按不同的列作为排序依据，但结果却异常

gmts

顶一顶，希望老师们赐教

cui26896

请参考附件
中国式排名2.zip (19.96 KB, 下载次数: 4)

2022-5-24 18:45 上传

点击文件名下载附件

gmts

cui26896 发表于 2022-5-24 18:45
请参考附件

老师，试过，也是一样的，女生的排名号不连续

microyip

1. Sub micro排名()
   
2.     Dim vData As Variant, vRow As Variant, nIndex As Long
   
3.     Dim oDic As Object, vSex As Variant, vVal As Variant, dicTmp As Object
   
4.    
   
5.     Set oDic = CreateObject("Scripting.Dictionary")
   
6.    
   
7.     With Sheet1
   
8.         With .UsedRange
   
9.             vData = .Offset(1).Resize(.Rows.Count - 1, 6).Value
   
10.         End With
    
11.         For vRow = 1 To UBound(vData)
    
12.             vSex = Trim(vData(vRow, 1))
    
13.             vVal = Val(vData(vRow, 6))
    
14.             If Not oDic.Exists(vSex) Then Set oDic(vSex) = CreateObject("Scripting.Dictionary")
    
15.             If Not oDic(vSex).Exists(vVal) Then Set oDic(vSex)(vVal) = CreateObject("Scripting.Dictionary")
    
16.             oDic(vSex)(vVal)(vRow) = 0
    
17.         Next
    
18.         For Each vSex In oDic.Keys
    
19.             vVal = SortData(oDic(vSex).Keys())
    
20.             For nIndex = LBound(vVal) To UBound(vVal)
    
21.                 Set dicTmp = oDic(vSex)(vVal(nIndex))
    
22.                 oDic(vSex).Remove vVal(nIndex)
    
23.                 Set oDic(vSex)(vVal(nIndex)) = dicTmp
    
24.             Next
    
25.         Next
    
26.         For Each vSex In oDic.Keys
    
27.             nIndex = 0
    
28.             For Each vVal In oDic(vSex).Keys
    
29.                 nIndex = nIndex + 1
    
30.                 For Each vRow In oDic(vSex)(vVal).Keys
    
31.                     vData(vRow, 1) = vSex & "-" & nIndex
    
32.                 Next
    
33.             Next
    
34.         Next
    
35.         .[L2].Resize(UBound(vData)) = vData
    
36.     End With
    
37. End Sub
    
38. 
    
39. Private Function SortData(ByVal vKey As Variant) As Variant
    
40.     Dim nI As Double, nJ As Double, vTmp As Variant
    
41.    
    
42.     nJ = LBound(vKey)
    
43.     For nI = LBound(vKey) To UBound(vKey) - 1
    
44.         If vKey(nI) >= vKey(nI + 1) Then
    
45.             If nI > nJ Then
    
46.                 nJ = nI
    
47.             Else
    
48.                 nI = nJ
    
49.             End If
    
50.         Else
    
51.             vTmp = vKey(nI)
    
52.             vKey(nI) = vKey(nI + 1)
    
53.             vKey(nI + 1) = vTmp
    
54.             If nI <> LBound(vKey) Then nI = nI - 2
    
55.         End If
    
56.     Next nI
    
57.     SortData = vKey
    
58. End Function

复制代码

microyip

附上附件以供参考

microyip

一般这种排序，最好用字典嵌套处理，对需要排序的那一层字典关键字进行排序，最后重组数据。

gmts

microyip 发表于 2022-5-24 23:34
一般这种排序，最好用字典嵌套处理，对需要排序的那一层字典关键字进行排序，最后重组数据。

谢谢老师，这正是我想要的结果。下来好好研究。但最好能够有解析代码就更好的理解。

gmts

microyip 发表于 2022-5-24 23:32
附上附件以供参考

谢谢老师，这正是我想要的结果。下来好好研究。但最好能够有解析代码就更好的理解。

gmts

microyip 发表于 2022-5-24 23:31

谢谢老师，这正是我想要的结果。下来好好研究。但最好能够有解析代码就更好的理解。