统计成绩....................

哒哒哒是的撒多

最好用jsa

ykcbf1100

有缺考但不是每门课都缺考，这怎么算考试人数呢？

ykcbf1100

VBA，目前，所有课缺考才不计入考试人数

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.12
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("Sheet1").UsedRange
   
4.     For i = 2 To UBound(arr)
   
5.         s = CStr(arr(i, 7))
   
6.         If Val(arr(i, 3)) + Val(arr(i, 4)) + Val(arr(i, 5)) Then
   
7.             If Not d.exists(s) Then
   
8.                 d(s) = Array(s, 1, Val(arr(i, 3)), Val(arr(i, 4)), Val(arr(i, 5)))
   
9.             Else
   
10.                 t = d(s)
    
11.                 t(1) = t(1) + 1
    
12.                 For x = 2 To 4
    
13.                     t(x) = t(x) + Val(arr(i, x + 1))
    
14.                 Next
    
15.                 d(s) = t
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     With Sheets("Sheet2")
    
20.         .UsedRange.Offset(1).Clear
    
21.         .[a2].Resize(d.Count, 5) = Application.Rept(d.Items, 1)
    
22.         .[a2].Resize(d.Count, 5).Borders.LineStyle = 1
    
23.         .[a2].Resize(d.Count, 5).Sort .[a2], 1
    
24.     End With
    
25.     Set d = Nothing
    
26.     MsgBox "OK！"
    
27. End Sub
    
28. 
    

复制代码

swl4561255

1. =SUMIF(Sheet1!$G$2:$G$44,$A2,OFFSET(Sheet1!$B$2:$B$44,,COLUMN(A1)))

复制代码

哒哒哒是的撒多

缺考不算人数，最好用jsa

ykcbf1100

你这个缺考统计人数还是存在疑问的，每门课都缺考才不算呢，还是只要缺考一门就不算呢？

LIUZHU

这个效果吗？

LIUZHU

JSA代码，请参考

1. function 统计成绩(){
   
2.         let arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2.slice(1);
   
3.         let obj=arr.reduce((dic,x)=>{
   
4.                 let temp=dic[x[6]]=dic[x[6]] || [x[6],0,0,0,0];
   
5.                 temp[1]++;
   
6.                 [2,3,4].forEach(i=>temp[i]+=x[i]!="缺考"?x[i]:0);                //汇总成绩
   
7.                 return dic;
   
8.         },{"0":["班级","考试人数","语文总分","数学总分","英语总分"]});
   
9.         let res=Object.values(obj);
   
10.         Sheets.Item("统计结果").Activate();
    
11.         Cells.ClearContents();
    
12.         Range("a1").Resize(res.length,res[0].length).Value2=res;
    

复制代码

LIUZHU

附件，请测试，那个缺考的也统计到人数里面了