提取获奖名单，放在第二个表格

vvw123

提取获奖名单，用VBA的模式，公式可以实现，但是想看看VBA，公式思路：先计算出全级级排75名外但又是班排名前三的人数，把这些名额和12个班36人差距，得出剩余最后一名名次，例如，本次有12人班里前三但是年级75名外，所以75-36+12=63,63就是最后一个获奖的名次。

jiangxiaoyun

VBA也就是判断，思路一样。有什么意思呢。

vvw123

jiangxiaoyun 发表于 2018-10-14 16:47
VBA也就是判断，思路一样。有什么意思呢。

想用VBA一键生成结果，想偷懒。感谢关注。

lsc900707

75-36+12=63怎么算过来的？

vvw123

lsc900707 发表于 2018-10-14 18:26
75-36+12=63怎么算过来的？

谢谢版主关注，
不好意思，保存文档的时候信息丢失
规则是这样的：总获奖人数75人，一等奖：1-5名；二等奖：6-15名；三等奖：每班前三名最少三等奖，剩余的名额按成绩从高到低
是这样的，获奖总人数控制在75人（最后一个获奖的同名次也一样获奖，这样可能会超过75人）
规则是每个班前三名均获奖，最低是三等奖，因为有一些班级前三名可能名次高于75，
例如，3班第三名125名，按照规则他也是三等奖，除了这些人，剩下的名额就按年级名次从高到低。

vvw123

lsc900707 发表于 2018-10-14 18:26
75-36+12=63怎么算过来的？

今天分送完了，明天送上，感谢版主一直以来的厚爱！谢谢！

719404338

1. Sub t()
   
2. Dim arr, i%, j%, k%, p%
   
3. j = 0: k = 1
   
4. For i = 3 To [a65536].End(3).Row
   
5. If Range("n" & i) <= 3 And Range("o" & i) > 75 Then
   
6.   j = j + 1
   
7. End If
   
8. Next
   
9. p = 75 - j
   
10. ReDim arr(1 To p + 15, 1 To 3)
    
11. For j = 1 To 5
    
12.   For i = 3 To [a65536].End(3).Row
    
13.   If Range("o" & i) = j Then
    
14. arr(k, 1) = "一等奖"
    
15. arr(k, 2) = Range("b" & i)
    
16. arr(k, 3) = Range("c" & i)
    
17. k = k + 1
    
18. End If
    
19. Next i, j
    
20. 
    
21. For j = 6 To 15
    
22.   For i = 3 To [a65536].End(3).Row
    
23.   If Range("o" & i) = j Then
    
24. arr(k, 1) = "二等奖"
    
25. arr(k, 2) = Range("b" & i)
    
26. arr(k, 3) = Range("c" & i)
    
27. k = k + 1
    
28. End If
    
29. Next i, j
    
30. 
    
31. For j = 16 To p + 15
    
32. For i = 3 To [a65536].End(3).Row
    
33.   If Range("o" & i) = j Then
    
34. arr(k, 1) = "三等奖"
    
35. arr(k, 2) = Range("b" & i)
    
36. arr(k, 3) = Range("c" & i)
    
37. k = k + 1
    
38. End If
    
39. Next i, j
    
40. Sheet2.Activate
    
41. Sheet2.[a3].Resize(p + 15, 3) = arr
    
42. End Sub
    

复制代码

vvw123

719404338 发表于 2018-10-14 20:17

感谢帮助，今天花送完了，明天再送！祝万事如意！！！

vvw123

lsc900707 发表于 2018-10-14 18:26
75-36+12=63怎么算过来的？

应该是75-12才对