Countifs和Sumifs 用代码如何提高效率

希望123456

工作中经常用到这两个函数，虽然用公式也能做出来，但是总觉得是个体力活，也尝试过用代码替代这两个函数。但是写出来代码太长了，还不如用函数来的方便。各位大佬，有没有什么好的方法解决这个问题？尽量用较少的代码解决，并且便于后期的修改！

z865593849

思路。。。。。。。。。

taller

满分率只是个除法，不可能有更高效的代码了

希望123456

z865593849 发表于 2023-5-12 23:03
思路。。。。。。。。。

大佬，我还没有学到这部分，这是用的数据库的知识吗？还有可否给个附件？

希望123456

taller 发表于 2023-5-13 01:52
满分率只是个除法，不可能有更高效的代码了

满分率不需要代码实现，就是那两个函数有没有好的方法替代，省的每次用一堆公式，或者一堆代码

于箱长

来个最简单的偷懒方法

3190496160

个人之见，使用代码，我们应该关心的是代码运行的结果的准确性和效率或者说速度，而不是关心有多少行代码，

3190496160

Sub 统计()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "成绩表为空！": End
    ar = .Range("a1:h" & r)
End With
rr = Array(10, 9, 8, 7, 6)
With Sheets("统计")
    .[a1].CurrentRegion.Borders.LineStyle = 0
    .[a1].CurrentRegion = Empty
    For j = 6 To 7
        k = 1: d.RemoveAll
        ReDim br(1 To UBound(ar), 1 To 9)
        br(1, 1) = "班级"
        br(1, 2) = "人数"
        br(1, 8) = "6以下"
        br(1, 9) = "满分率"
        For i = 2 To UBound(ar)
            If Trim(ar(i, 3)) <> "" Then
                t = d(ar(i, 3))
                If t = "" Then
                    k = k + 1
                    d(ar(i, 3)) = k
                    t = k
                    br(k, 1) = ar(i, 3)
                End If
                If Trim(ar(i, j)) <> "" Then
                    If IsNumeric(ar(i, j)) Then
                        br(t, 2) = br(t, 2) + 1
                        For s = 0 To UBound(rr)
                            zf = rr(s)
                            br(1, s + 3) = zf & "分"
                            If ar(i, j) = zf Then
                                br(t, s + 3) = br(t, s + 3) + 1
                            End If
                        Next s
                        If ar(i, j) < 6 Then
                            br(t, 8) = br(t, 8) + 1
                        End If
                        If br(t, 2) = "" Or br(t, 2) = 0 Then
                            br(t, 9) = 0
                        Else
                            br(t, 9) = br(t, 3) / br(t, 2)
                        End If
                    End If
                End If
            End If
        Next i
        rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        If rs = 2 Then
            rs = 1
        Else
            rs = rs
        End If
        .Cells(rs, 1) = ar(1, j - 2) & "成绩统计表"
        .Cells(rs + 1, 1).Resize(k, UBound(br, 2)) = br
        .Cells(rs + 1, 1).Resize(k, UBound(br, 2)).Borders.LineStyle = 1
    Next j
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

地生成绩处理.rar (53.09 KB, 下载次数: 9)

2023-5-13 09:56 上传

点击文件名下载附件

希望123456

3190496160 发表于 2023-5-13 09:56

代码是为了更高效的工作，如果写一大堆代码，还不如直接用函数了。如果不考虑代码多少，我不是也可以这样写吗？