[已解决]求助为什么高分得第2名，零分得第1名。谢谢

qinhuan66

求助为什么高分得第2名，零分得第1名。谢谢
测试.rar (51.5 KB, 下载次数: 3)

2013-6-19 16:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-19 16:42

笔试成绩有的是文本格式，导致出错
选中这些数据，点击 右上角的绿色按钮，选择 里面的 转换为数字，就可以了

或者，通过分列也可以。
选中 这些数据 【数据】-【分列】，直接点完成。

跳转到最佳答案楼层

lyf7276

因为0是文本，文本大于数字

风林火山

二楼正解，顶一下

那么的帅

笔试成绩有的是文本格式，导致出错
选中这些数据，点击 右上角的绿色按钮，选择 里面的 转换为数字，就可以了

或者，通过分列也可以。
选中 这些数据 【数据】-【分列】，直接点完成。

qinhuan66

谢谢您们的提醒。我已用分列搞掂了。谢谢

那么的帅

直接修改代码也可以

1. Sub 生成排名()
   
2.     Dim arr1, Arr12(), Arr13()
   
3.     With Sheets("资料")
   
4.         row1 = .Range("A" & Rows.Count).End(xlUp).Row
   
5.         .Range("h3:h" & row1).ClearContents
   
6.         arr1 = .Range("B3:E" & row1)
   
7.         ReDim Arr11(1 To UBound(arr1), 1 To 2)
   
8.         For i = 1 To UBound(arr1)
   
9.             If arr1(i, 4) = "缺考" Then arr1(i, 4) = 0
   
10.         Next i
    
11.         Set D1 = CreateObject("Scripting.Dictionary")
    
12.         Set D2 = CreateObject("Scripting.Dictionary")
    
13.         For i = 1 To UBound(arr1)
    
14.             If Not D1.EXISTS(arr1(i, 1)) Then
    
15.                 m1 = m1 + 1
    
16.                 D1(arr1(i, 1)) = m1
    
17.                 ReDim Preserve Arr12(1 To 2, 1 To m1)
    
18.                 Arr12(1, m1) = arr1(i, 1)
    
19.                 Arr12(2, m1) = m1
    
20.             End If
    
21.             Arr11(i, 2) = Format(D1(arr1(i, 1)), "00")
    
22.         Next i
    
23.         For j = 1 To m1
    
24.             For i = 1 To UBound(arr1)
    
25.                 If Arr12(1, j) = arr1(i, 1) Then
    
26.                     If Not D2.EXISTS(Val(arr1(i, 4))) Then
    
27.                         M2 = M2 + 1
    
28.                         D2(Val(arr1(i, 4))) = M2
    
29.                         ReDim Preserve Arr13(1 To 2, 1 To M2)
    
30.                         Arr13(1, M2) = Val(arr1(i, 4))
    
31.                         Arr13(2, M2) = M2
    
32.                         If M2 > 1 Then
    
33.                             For k1 = 1 To M2 - 1
    
34.                                 For k2 = k1 + 1 To M2
    
35.                                     If Val(Arr13(1, k1)) < Val(Arr13(1, k2)) Then
    
36.                                         t = Arr13(1, k1)
    
37.                                         Arr13(1, k1) = Arr13(1, k2)
    
38.                                         Arr13(1, k2) = t
    
39.                                     End If
    
40.                                 Next k2
    
41.                             Next k1
    
42.                         End If
    
43.                     End If
    
44.                 End If
    
45.             Next i
    
46.             For i = 1 To UBound(arr1)
    
47.                 If Arr12(1, j) = arr1(i, 1) Then
    
48.                     For K3 = 1 To M2
    
49.                         If Arr13(1, K3) = Val(arr1(i, 4)) Then
    
50.                             Arr11(i, 1) = Arr13(2, K3)
    
51.                             Exit For
    
52.                         End If
    
53.                     Next K3
    
54.                 End If
    
55.             Next i
    
56.             Erase Arr13
    
57.             D2.RemoveAll
    
58.             M2 = 0
    
59.         Next j
    
60.         .Range("F3").Resize(UBound(Arr11), 1) = Arr11
    
61.     End With
    
62. End Sub

复制代码