帮我查看一下这段vba代码为什么不对？计数出来的CountA，countB等等全是0

帮我查看一下这段vba代码为什么不对？计数出来的CountA，countB等等全是0

可能是你用了系统的关键字 countA ，改个变量名吧
Sub test2()
    Dim r, jishu, ban, qishi, CtA, CtB, CtC,CtD
    For r = 7 To 750
        jishu = 0
        ban = 10
        qishi = 41
        CtA = 0
        CtB = 0
        CtC = 0
        CtD = 0
        If Sheets("成绩").Cells(r,3) = ban Then
            Select Case Sheets("成绩").Cells(r,qishi + 7 + jishu)
                Case "A"
                    CtA = CtA + 1
                Case "B"
                    CtB = CtB + 1
                Case "C"
                    CtC = CtC + 1
                Case "D"
                    CtD = CtD + 1
                Case Else
            End Select
        End If
    Next r
    Sheets("处理").Cells(3,3 + jishu).Resize(3) = Array(CtA, CtB, CtC)
    
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！