学生排名问题

悦姐姐123

大神们，我遇到这样一个问题：高三年级成绩排名，其中复读生不参与应届生的排名，但是要对应到应届生的名次。比如应届生600分100名，往届生600分就为100名，如果应届生600分100名，595分101名，往届生599分则为101名，求助！

excel我最爱

上个附件，模拟一些数据，这样别人才能帮到你。

悦姐姐123

excel我最爱 发表于 2017-2-28 17:52
上个附件，模拟一些数据，这样别人才能帮到你。

麻烦帮我看看，谢谢

zy596561385

因为我是初学者，不要笑话我。代码有点长

1. Sub 排名()
   
2. Dim a%, b%
   
3. Dim yjs1 As Range
   
4. Dim fds1 As Range
   
5. Dim yjs2 As Range
   
6. Dim fds2 As Range
   
7. Dim yjshR1 As Range
   
8. Dim yjshR2 As Range
   
9. Dim fdshR1 As Range
   
10. Dim fdshR11 As Range
    
11. Dim rng As Range
    
12. Set yjs1 = [b1]
    
13. Set fds1 = [b1]
    
14. Set yjs2 = [b1]
    
15. Set fds2 = [b1]
    
16. zsyhs = Columns(1).Find("*", , , , , xlPrevious).Row
    
17. For Each rng In Range("b2:b" & zsyhs)
    
18.     abc = rng.Address
    
19.     If rng = "应届生" Then
    
20.     Set yjs1 = Union(yjs1, rng)
    
21.     Set yjs2 = Union(yjs2, rng)
    
22.     Else
    
23.     Set fds1 = Union(fds1, rng)
    
24.     Set fds2 = Union(fds2, rng)
    
25.     End If
    
26. Next
    
27. mc = 1
    
28. For Each yjshR1 In yjs1
    
29. yjshR11 = yjshR1.Address
    
30. a = Range(yjshR11).Row
    
31.     If a > 1 Then
    
32.         cj1 = Cells(a, 3)
    
33.         For Each yjshR2 In yjs2
    
34.             yjshR22 = yjshR2.Address
    
35.             b = Range(yjshR22).Row
    
36.             If b > 1 Then
    
37.                 cj2 = Cells(b, 3)
    
38.                 If cj2 > cj1 Then mc = mc + 1
    
39.             End If
    
40.         Next
    
41.         Cells(a, 4) = mc
    
42.         mc = 1
    
43.     End If
    
44. Next
    
45. 
    
46. Set fdshR11 = [b1]
    
47. For Each fdshR1 In fds1
    
48. fdshR11 = fdshR1.Address
    
49. c = Range(fdshR11).Row
    
50. mc = 1
    
51. If c > 1 Then
    
52. fdscj = Cells(c, 3)
    
53.     For Each yjshR1 In yjs1
    
54.     yjshR11 = yjshR1.Address
    
55.     a = Range(yjshR11).Row
    
56.         If a > 1 Then
    
57.             cj1 = Cells(a, 3)
    
58.             If fdscj = cj1 Then Cells(c, 4) = Cells(a, 4): GoTo 100
    
59.         End If
    
60.     Next
    
61.     For Each yjshR1 In yjs1
    
62.     yjshR11 = yjshR1.Address
    
63.     a = Range(yjshR11).Row
    
64.         If a > 1 Then
    
65.             cj1 = Cells(a, 3)
    
66.             If fdscj < cj1 Then
    
67.             mc = mc + 1
    
68.             End If
    
69.         End If
    
70.     Next
    
71.     Cells(c, 4) = mc
    
72. End If
    
73. 100:
    
74. Next
    
75. End Sub
    

复制代码

zy596561385

成品附件。

悦姐姐123

zy596561385 发表于 2017-3-2 10:20
成品附件。

谢谢你的帮忙，但是我几乎没怎么懂，能不能给我讲一下你的思路，谢谢

zy596561385

zy596561385

悦姐姐123 发表于 2017-3-6 10:46
谢谢你的帮忙，但是我几乎没怎么懂，能不能给我讲一下你的思路，谢谢

由于我也才开始学，所以只能使用笨方法，
这个方法的主要思路就是将每一个符合条件的值跟所有的值进行比较，成立一个就累计+1
用函数的方法目前我想到的也是这个思路，但是感觉函数方法不太方便就没用
个人认为，肯定有更简短的代码涵盖了这个功能，只是目前还没学到/找到。所以只能用笨方法，多次循环判断。

丙辰

D22输入=SUMPRODUCT(IF($C$2:$C$21>C22,1,0))+1
同时按三键shift+ctrl+enter，往下填充

zy596561385

楼上的公式也可以达到这个效果。函数简洁，方便，快捷；
但使用函数公式时要注意：1、应届生复读生要分开，混合在一起会失效。2、数据更多时$C$2:$C$21的范围要相应改写；使用VB缺点在于：找不到更简洁的方法时，写VB很耗时太过繁琐；好处在于：再多的数据，也不需要修改范围；混合在一起也有效；