名次相同时分年级分科目如何计分

陈善天

"请教各位大神：
1.根据各班级的平均分、优良率和及格率的排名和最大值，分别算平均分、优良率和及格率的得分（黄色区域）；
2.一年级有8个班，其他年级有6个班；8个班的得分从第1-8名分别是8，7，6，5，4，3，2，1分，6个班的得分从第1-6名分别是6，5，4，3，2，1分，涉及到相同名次按相邻分数之和除以相同个数，如第一名有2个班，就按（8+7）/2或(6+5)/2，如此类推。
3.单个科目的公式我可以做出，但多个科目和年级就没有办法了。"

陈善天

学校要做效益奖计分，个人能力有限，感觉比较困难，查了很多资料，但还没有解决，特向各位大神求助！

3190496160

vba是可以做到的

yellowhawk

个人理解能力有限，好像没看懂你的需求

陈善天

3190496160 发表于 2024-10-1 09:59
vba是可以做到的

VBA还没学过

陈善天

3190496160 发表于 2024-10-1 09:59
vba是可以做到的

没有学过呢

陈善天

3190496160 发表于 2024-10-1 09:59
vba是可以做到的

没有学过呢

3190496160

陈善天 发表于 2024-10-1 11:24
没有学过呢

来论坛求vba代码的很多都没学过，但是，只要会用就行

edwin11891

累死了，总算折腾出来了，超长火车，验算检验几个没有错误。班级优良率、及格率，只需要将公式中的T5:T78分别改成 U5:U78、V5:V78即可。

Z5：

1. =LET(a,GROUPBY(HSTACK(MATCH(AC5:AC78&AD5:AD78,AC5:AC78&AD5:AD78,),AC5:AC78),AD5:AD78,SINGLE,0,0),b,FILTER(a,LEN(CHOOSECOLS(a,2))<4),c,REDUCE("",SEQUENCE(ROWS(a)),LAMBDA(m,n,LET(Sn,FILTER(T5:T78,AC5:AC78&AD5:AD78=INDEX(CHOOSECOLS(a,2),n)&INDEX(CHOOSECOLS(a,3),n)),Ln,ROWS(Sn),Sp,LAMBDA(x,IF(x=0,0,XLOOKUP(x,SEQUENCE(Ln),Ln+1-SEQUENCE(Ln)))),Res,MAP(Sn,LAMBDA(x,LET(Nb,ROWS(FILTER(Sn,Sn=x)),Xres,REDUCE(0,SEQUENCE(Nb),LAMBDA(xx,yy,xx+Sp(x+yy-1))),Xres/Nb))),VSTACK(m,Res)))),DROP(c,1))

复制代码

edwin11891

简化一下公式：

1. =LET(AC,AC5:AC78,AD,AD5:AD78,sRc,T5:T78,a,GROUPBY(HSTACK(MATCH(AC&AD,AC&AD,),AC),AD,SINGLE,0,0),b,FILTER(a,LEN(CHOOSECOLS(a,2))<4),c,REDUCE("",SEQUENCE(ROWS(a)),LAMBDA(m,n,LET(Sn,FILTER(sRc,AC&AD=INDEX(CHOOSECOLS(a,2),n)&INDEX(CHOOSECOLS(a,3),n)),Ln,ROWS(Sn),Sp,LAMBDA(x,IF(x=0,0,XLOOKUP(x,SEQUENCE(Ln),Ln+1-SEQUENCE(Ln)))),Res,MAP(Sn,LAMBDA(x,LET(Nb,ROWS(FILTER(Sn,Sn=x)),Xres,REDUCE(0,SEQUENCE(Nb),LAMBDA(xx,yy,xx+Sp(x+yy-1))),Xres/Nb))),VSTACK(m,Res)))),DROP(c,1))

复制代码