【求助】VBA按班级求各科平均分

光和色

各位老师好，我想要按班级求各科的平均分、然后填写到sheet2 对应的位置上，在网上查了很多教程也没有成功，求各位老师帮忙指导，万分感谢 按班级求平均分.zip (13.71 KB, 下载次数: 44)

2022-12-13 13:16 上传

点击文件名下载附件

wengjl

二个表上的学科排列顺序一致，可使代码简单很多哦！

fzxba

1. Sub test1() '将表1中的  -  全部替换为 空
   
2.   Dim Conn As Object, ar, i As Integer
   
3.   Dim strConn As String, SQL As String
   
4.   Set Conn = CreateObject("ADODB.Connection")
   
5.   If Application.Version < 12 Then
   
6.     strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
   
7.   Else
   
8.     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
   
9.   End If
   
10.   Conn.Open strConn & ThisWorkbook.FullName
    
11.   Worksheets("Sheet2").Activate
    
12.   Range("A1").CurrentRegion.Offset(2).ClearContents
    
13.   ar = Range("A1").CurrentRegion.Resize(2)
    
14.   SQL = "SELECT " & ar(2, 1)
    
15.   For i = 2 To UBound(ar, 2)
    
16.     If Len(ar(1, i)) Then SQL = SQL & ",NULL" Else SQL = SQL & ",AVG(" & ar(1, i - 1) & "分数)"
    
17.   Next
    
18.   SQL = SQL & " FROM [Sheet1$A2:AK] GROUP BY " & ar(2, 1)
    
19.   Range("A3").CopyFromRecordset Conn.Execute(SQL)
    
20.   Conn.Close
    
21.   Set Conn = Nothing
    
22.   Beep
    
23. End Sub

复制代码

光和色

wengjl 发表于 2022-12-13 13:29
二个表上的学科排列顺序一致，可使代码简单很多哦！

谢谢老师，学科可以一致  第二个表的顺序可以自由调换

光和色

wengjl 发表于 2022-12-13 13:29
二个表上的学科排列顺序一致，可使代码简单很多哦！

非常感谢老师，sheet2的顺序可以调换

ykcbf1100

字典嵌套字典

光和色

ykcbf1100 发表于 2022-12-13 15:22
字典嵌套字典

非常感谢老师的指导，我刚刚下载附件学习了一下，有一处疑问就是 例如政治学科  2班只有一名同学有成绩，平均分应该是只算他自己，没有成绩的不算，请问老师、这种缺考的在计算平均分的时候是否可以忽略掉。谢谢

光和色

fzxba 发表于 2022-12-13 14:01

非常感谢老师的指导，我试一下看看结果，有疑问再向您请教，再次感谢！

sdytsxd991122

ykcbf1100

光和色 发表于 2022-12-13 15:39
非常感谢老师的指导，我刚刚下载附件学习了一下，有一处疑问就是 例如政治学科  2班只有一名同学有成绩， ...

那就这样了。