小白模仿大神代码，结果出错，特来求助

ypcf0312

小白模仿大神代码，结果出错，特来求助，附件已上传

longwin

这句改成这样：
a = [{630,620,610,600,590,580,570,560,550,540,530,520,510,500,490,480,470,460,450,440,430,420,410,400,390,380,370,360,350,340,330,320,310,300}]
  
这一句要跟表头对上，

ypcf0312

longwin 发表于 2024-7-17 14:24
这句改成这样：
a = [{630,620,610,600,590,580,570,560,550,540,530,520,510,500,490,480,470,460,450,4 ...

brr(n, 6) = IIf(arr(i, 13) = "", 1000, arr(i, 13))
这句是什么意思？运行后最下面会有1000，

longwin

先赋值一个1000分给最低分字段，然后后面会每条判断赋值，第一行如果小于1000，则把第一行的值放到这里，然后再比较下一行，找到比存的值低的分，再把更低的存上，。。。。最后的结果就是最低分

longwin

ypcf0312 发表于 2024-7-17 14:28
brr(n, 6) = IIf(arr(i, 13) = "", 1000, arr(i, 13))
这句是什么意思？运行后最下面会有1000，

如果arr(i,13)为空,则 brr(n,6)=1000,
else
如果arr(i,13)不为空,则 brr(n,6)=arr(i,13),

ypcf0312

longwin 发表于 2024-7-17 14:30
先赋值一个1000分给最低分字段，然后后面会每条判断赋值，第一行如果小于1000，则把第一行的值放到这里，然 ...

多谢大神的详细解答

半百

abc123281

随便更改了几处，所提供的数据也不全面，仅供参考
xxxx学年度第二学期八年级期末成绩统计表.rar (19.15 KB, 下载次数: 4)

2024-7-17 21:52 上传

点击文件名下载附件

铁马1980

参与一下，重写了

xxxx学年度第二学期八年级期末成绩统计表.zip (28.31 KB, 下载次数: 11)

2024-7-18 11:02 上传

点击文件名下载附件

dy83797465268

Sub 总分统计()
Dim cnn As Object, strPath As String, str_cnn As String
Dim strSQL As String, rst As Object
Sheets("八年总分").Range("A4:AO4").ClearContents
strPath = ActiveWorkbook.FullName

Set cnn = CreateObject("adodb.connection")
If Application.Version < 12 Then
    str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
Else
    str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
End If

cnn.Open str_cnn
strSQL = "Select '慈云中学',count(T.姓名),Sum(T.总分),avg(T.总分),max(T.总分),min(T.总分)," & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=630 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=620 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=610 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=600 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=590 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=580 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=570 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=560 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=550 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=540 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=530 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=520 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=510 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=500 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=490 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=480 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=470 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=460 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=450 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=440 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=430 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=420 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=410 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=400 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=390 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=380 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=370 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=360 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=350 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=340 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=330 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=320 ), " & _
"(select count(姓名) from [学生成绩$A3:M]  where 总分>=310 ), (select count(姓名) from [学生成绩$A3:M]  where 总分>=300 ), (select count(姓名) from [学生成绩$A3:M]  where 总分<300 )" & _
"from [学生成绩$A3:M] as T"
Debug.Print strSQL
Set rst = cnn.Execute(strSQL)
Sheets("八年总分").Cells(4, 1).CopyFromRecordset rst

MsgBox ("统计完成")

End Sub