用函数或VBA提取不及格学生名单！

edwin11891 · 发表于 2024-10-20 21:39

lc16whj 发表于 2024-10-20 21:03
高手，公式是365版本的吗？我的版本是Excel2021，能不能用这个版本的公式？

多个科目需要循环，使用低版本函数单纯手拖下拉方式汇总，不太现实。

lc16whj · 发表于 2024-10-20 21:41

edwin11891 发表于 2024-10-20 21:39
多个科目需要循环，使用低版本函数单纯手拖下拉方式汇总，不太现实。

用VBA能不能实现呢？

edwin11891 · 发表于 2024-10-20 21:44

lc16whj 发表于 2024-10-20 21:41
用VBA能不能实现呢？

VBA当然可以，可是我久不使用，稍有手生，等VBA高手吧。这个应该也不难、不复杂，两次循环的事。

lc16whj · 发表于 2024-10-20 21:48

edwin11891 发表于 2024-10-20 21:44
VBA当然可以，可是我久不使用，稍有手生，等VBA高手吧。这个应该也不难、不复杂，两次循环的事。

谢谢高手，我只懂一点点低版本的函数，VBA不懂！谢谢你的指点！

wj65134 · 发表于 2024-10-20 22:01

=REDUCE(,REGEXP(TOCOL(IF(成绩!D2:M1027<TOROW(I2:I11),BYROW(成绩!A2:C1027&"-",CONCAT)&(成绩!D1:M1&-成绩!D2:M1027),\),3),"[^-]+",3),VSTACK)

复制代码

公式短点，但是卡

lc16whj · 发表于 2024-10-20 22:03

wj65134 发表于 2024-10-20 22:01
公式短点，但是卡

高手，低版本的函数可以实现吗？

uneye2 · 发表于 2024-10-20 22:07

提取各科不及格名单.rar (893.08 KB, 下载次数: 5)

leepoison · 发表于 2024-10-20 22:09

=LET(c,成绩!D2:M1027,b,c<TRANSPOSE(I2:I11),a,HSTACK(WRAPROWS(TOCOL(REPTARRAY(成绩!A2:C1027,,10),,FALSE),3),TOCOL(IF(b,成绩!D1:M1,"")),TOCOL(IF(b,c,""))),FILTER(a,CHOOSECOLS(a,4)<>""))

复制代码

wj65134 · 发表于 2024-10-20 22:21

wps免费，可以安一个

ehluxiaoyu520 · 发表于 2024-10-20 22:35

可以试试WPS最新版或WPS官网提供的在线网页版（PS：我用的就是网页版）
=REDUCE(A1:E1,TOCOL(LET(s,成绩!D2:M1027,IF(s<TRANSPOSE(I2:I11),成绩!A2:A1027&","&成绩!B2:B1027&","&成绩!C2:C1027&","&成绩!D1:M1&","&s,1/0)),3,0),LAMBDA(x,y,VSTACK(x,TEXTSPLIT(y,","))))

		自动登录	找回密码
密码			免费注册

[已解决] 用函数或VBA提取不及格学生名单！

评分

评分

评分