数组+for循环统计数量为何比countifs慢

yeahwsw

统计平行班语文大于等于87分的人数，为什么数组+for循环比调用工作表函数countifs慢，数据总共90多万行

数组方法

Sub te()
    Start = Timer
    arr = Worksheets("成绩表B").Cells(1, 1).CurrentRegion
    For j = 2 To UBound(arr, 1)
        If arr(j, 2) = "小班" Then GoTo flag
        If arr(j, 5) >= 87 Then s = s + 1
flag:
    Next
    Finish = Timer
    Total = Finish - Start
    MsgBox "程序运行了" & Format(Total, "0.0000" & "秒")
    Stop
End Sub


耗时
调用工作表函数countifs

Sub td()
    Start = Timer
   
    Set Rng_bl = Worksheets("成绩表B").Cells(1, 2).Resize(943601, 1)
    Set rng_cj = Worksheets("成绩表B").Cells(1, 5).Resize(943601, 1)
    s = WorksheetFunction.CountIfs(Rng_bl, "平行班", rng_cj, ">=" & 87)
    Finish = Timer
    Total = Finish - Start
    MsgBox "ggggg8888程序运行了" & Format(Total, "0.0000" & "秒")
    Stop
End Sub

耗时

dy83797465268

select count from  x where 语文>=87  更快~

yeahwsw

dy83797465268 发表于 2024-7-24 15:27
select count from  x where 语文>=87  更快~

vba中使用sql不会啊，不会数据库

dy83797465268

yeahwsw 发表于 2024-7-24 16:02
vba中使用sql不会啊，不会数据库

在VBA中调用SQL语句查询 worksheet的内容，并返回结果

yeahwsw

dy83797465268 发表于 2024-7-24 16:04
在VBA中调用SQL语句查询 worksheet的内容，并返回结果

好吧，看来我有的瞅瞅sql了

dy83797465268

上附件~~~~~~~~

yeahwsw

dy83797465268 发表于 2024-7-24 16:10
上附件~~~~~~~~

附件太大，上传不了，压缩以后还有32MB

dy83797465268

放一点数据就好了， 又不需要真实的 很多数据。。上附件写代码~

yeahwsw

dy83797465268 发表于 2024-7-24 16:14
放一点数据就好了， 又不需要真实的 很多数据。。上附件写代码~

附件已上传

ykcbf1100

附件数据太少，试不出来，感觉速度差不多。
都是0.00级别的