求助高手，用VBA给excel中的各种学科等排名。

grf1973

1. function test(){       
   
2.         var ar=Range('a1').CurrentRegion.Value2.slice(1);
   
3.         bt=Range('a1').CurrentRegion.Value2[0]   //表头，用于查找学科、分组、输出位置                       
   
4.         for(let k=0;k<2;k++){
   
5.                 if(k==0) {[学科,分组,输出列名]=['总分','班级','班名次']}
   
6.                 if(k==1) {[学科,分组,输出列名]=['总分','组合','组合内名次']}       
   
7.                 let 分数列=bt.indexOf(学科);
   
8.                 let 分组列=bt.indexOf(分组);       
   
9.                 let br=ar.map(x=>[x[分组列],x[分数列]]);
   
10.                 let c=bt.indexOf(输出列名)+1   //输出列要在表列数之上+1
    
11.                 Cells(2,c).Resize(ar.length,1).Value2=myRank(br);
    
12.         }       
    
13.        
    
14.         for(学科 of '总分,语文,数学,英语,日语,西语,物理,化学,生物,政治,历史,地理'.split(',')){
    
15.                 let 输出列名=(学科=='总分')?'校名次':学科[0]+'名'
    
16.                 let 分数列=bt.indexOf(学科)
    
17.                 let br=ar.map(x=>['学校',x[分数列]])                //用同一字符代替分组，最大范围内排名
    
18.                 let bt.indexOf(输出列名)+1;
    
19.                 Cells(2,c).Resize(ar.length,1).Value2=myRank(br);
    
20.         }
    
21. }
    
22. 
    
23. function myRank(data){   //data由两列组成[group,score] 返回与data同序的排名
    
24.                 let d={},d1={}   
    
25.                 for(x of data){   //字典存放每种分组的分数组成的数组  d[9班]=[499.5,493.5,...]   d['物化生']=[......]
    
26.                         let group=x[0],score=x[1]?x[1]:0                       
    
27.                         if(group in d) {d[group].push(score)
    
28.                         }else{d[group]=[score]}
    
29.                 }
    
30.                 for(let group in d){   
    
31.                         let br=d[group].sort((a,b)=>(b-a))   //每个分组组成的分数数组降序
    
32.                         let n=1,s0=br[0],m=0   
    
33.                         for(score of br){                //对每个  分组+分数  给予序号（排名），放到字典d1里 d1[物化生499.5]=1               
    
34.                                 let key=group+' '+score;
    
35.                                 if(score>0){
    
36.                                         m+=1;
    
37.                                         if(score==s0) {d1[key]=n;} //同分同名
    
38.                                         else{d1[key]=m;s0=score;n=m}
    
39.                                 }else{d1[key]='' }   //9999}                                       
    
40.                         }
    
41.                 }
    
42.                 let res=[]
    
43.                 for(let x of data){   //对源数据根据 分组+分数 得出排名的数组
    
44.                         let group=x[0],score=x[1]?x[1]:0                       
    
45.                         let key=group+' '+score;
    
46.                         res.push([d1[key]]);
    
47.                 }
    
48.                 return res
    
49.         }

复制代码

grf1973

18行少了个c=

戎马书生222

yynrzwh 发表于 2024-4-29 10:26
供参考

各学科的名次不对。图片右边是用公式算的。

ooluckydog

标题行名字保持不变，所在列位置可以随意调整

戎马书生222

ooluckydog 发表于 2024-4-30 01:18
标题行名字保持不变，所在列位置可以随意调整

Set arrList = CreateObject("system.collections.arraylist")
提示错误

ooluckydog

戎马书生222 发表于 2024-4-30 15:06
Set arrList = CreateObject("system.collections.arraylist")
提示错误

需要安装 .Net 框架 3.5

戎马书生222

yynrzwh 发表于 2024-4-29 10:26
供参考

名次不对啊

yynrzwh

哪里不对？上附件啊

戎马书生222

yynrzwh 发表于 2024-5-29 16:47
哪里不对？上附件啊

9班排名前是政史地组合，结果排名之后变成物化生组合。

chxw68

参与一下。