[已解决]求各班只保留总分由高到底的前40人数据

eikok

求各班只保留总分由高到底的前40人数据

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2014-1-5 13:30

eikok 发表于 2014-1-5 13:26
求版主不吝赐教 sql代码怎么在excel中应用

跳转到最佳答案楼层

JLxiangwei

求各班只保留总分由高到底的前40人数据.rar (26.77 KB, 下载次数: 7)

2014-1-5 12:56 上传

点击文件名下载附件

select *
from (select top 40 * from ['15-19)$'] where 班级=15 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=16 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=17 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=18 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=19 order by 总分 desc)
order by 班级,总分 desc

eikok

JLxiangwei 发表于 2014-1-5 12:56
select *
from (select top 40 * from ['15-19)$'] where 班级=15 order by 总分 desc union all  
...

版主降临不胜感激
弱弱的问一下
select *
from (select top 40 * from ['15-19)$'] where 班级=15 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=16 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=17 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=18 order by 总分 desc union all  
      select top 40 * from ['15-19)$'] where 班级=19 order by 总分 desc)
order by 班级,总分 desc

这段代码怎么用（

上清宫主

Sub test()
Dim ar()
i% = [a65536].End(3).Row - 1
Range("C2:C3") = [{1;2}]
Range("C2:C3").AutoFill Destination:=[c2].Resize(i)
Range("a1").Resize(i, 3).Sort [a1], xlDescending, [b1], , xlDescending, , , xlYes
ar = Range("a1").Resize(i, 3).Value
r% = 1
For i = 2 To UBound(ar)
    If ar(i, 1) <> bj% Then
       k% = 1
       bj = ar(i, 1)
    Else
       k = k + 1
    End If
    If k <= 40 Then
       r = r + 1
       ar(r, 1) = ar(i, 1): ar(r, 2) = ar(i, 2): ar(r, 3) = ar(i, 3)
    End If
Next
Range("A:C").Clear
[a1].Resize(r, 3) = ar
Range("a1").Resize(r, 3).Sort [c1], , , , , , , xlYes
Range("C:C").Clear
End Sub

JLxiangwei

eikok 发表于 2014-1-5 13:03
版主降临不胜感激
弱弱的问一下
select *

这个是sql代码，不是VBA啊

eikok

JLxiangwei 发表于 2014-1-5 13:22
这个是sql代码，不是VBA啊

求版主不吝赐教 sql代码怎么在excel中应用

JLxiangwei

eikok 发表于 2014-1-5 13:26
求版主不吝赐教 sql代码怎么在excel中应用

eikok

JLxiangwei 发表于 2014-1-5 12:56
select *
from (select top 40 * from ['15-19)$'] where 班级=15 order by 总分 desc union all  
...

版主的方法，小弟都一次见过，大开眼界，膜拜一下先

tgydslr

求各班只保留总分由高到底的前40人数据.zip (9.09 KB, 下载次数: 4)

2014-1-5 15:27 上传

点击文件名下载附件

eikok

上清宫主 发表于 2014-1-5 13:10
Sub test()
Dim ar()
i% = [a65536].End(3).Row - 1

这个大侠的代码也好使，就是没有看明白
能把这个具体赐教一下好吗？