根据附加分获取学生姓名

tjchun

附件样张中有6个班的学生名单，有一个区域为附加分名单，需求是用VBA编写一个宏，当单击附加分名单按钮后，根据当前班级学生成绩中的附加分一栏的情况，把获得附加分的学生姓名提制到蓝色区域上。请高手指教，谢谢。

冰封气流

期末考试成绩统计表.zip (51.67 KB, 下载次数: 13)

2023-12-20 21:38 上传

点击文件名下载附件

你发到wps宏专区的，就用WPS的JS宏给你写的

1. function 统计附加分(){
   
2.         var wb = ActiveSheet;
   
3.         var arr = wb.Range("a4").CurrentRegion.Value();
   
4.         arr.shift();
   
5.         var 附加分名单 = arr.filter((v)=>{
   
6.                 return v[3] != null
   
7.         })
   
8.         var 名单 = 附加分名单.map((v)=>{
   
9.                 return v[1];
   
10.         })
    
11.         Range("f29").MergeArea.Cells(1,1).Value2 = 名单.join("、");
    
12. }

复制代码

冰封气流

这个似乎更简洁一点

1. function 统计附加分(){
   
2.             var wb = ActiveSheet;
   
3.             var arr = wb.Range("a4").CurrentRegion.Value();
   
4.             arr.shift();
   
5.             var 附加分名单 = arr.filter((v)=>{
   
6.                     return v[3] != null
   
7.             }).map((v)=>{
   
8.                     return v[1];
   
9.             })
   
10.             Range("f29").MergeArea.Cells(1,1).Value2 = 附加分名单.join("、");

复制代码

LIUZHU

冰封气流 发表于 2023-12-20 22:16
这个似乎更简洁一点

还可以再简洁

冰封气流

LIUZHU 发表于 2023-12-22 09:36
还可以再简洁

膜拜大佬