请高手给个代码，学习一下。统计一下校名次的区间统计

ykcbf1100

tanglf188 发表于 2024-6-25 16:56
多谢草爷指教

不用客气，相互学习。

65861954

戎马书生222 发表于 2024-6-25 16:12
数据量大了，你就知道VBA的好处了。

数据量真的太大，就用sql或者pandas库，numpy库解决。

LIUZHU

参与下，运行效果

LIUZHU

JS代码，供参考

1. function 统计(){
   
2.         let res=Range("a1").CurrentRegion.Value2.slice(1).reduce((res,[a,,b])=>{
   
3.                 res[a]=res[a] || [a];
   
4.                 let n=res[0].slice(1).map(x=>eval(b+x)).indexOf(true) + 1;
   
5.                 return res[a][n]=(res[a][n] || 0) + 1, res;
   
6.         },[["班级","<=5","<=10","<=15","<=20","<=25","<=30","<=50"]]);
   
7.         Range("h1").Resize(res.length, res[0].length).Value2=res;
   
8. }

复制代码

LIUZHU

附件，WPS打开测试有效

limonet

关键字：partition

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select 班级,姓名,Partition(校名次,1,50,5) As 分层 From [Sheet1$A:C]"
    StrSQL = "TransForm Count(*) Select 班级 From (" & StrSQL & ") Group By 班级 Pivot 分层"
    Range("H2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

飞天篮球猪