不及格的成绩-不及格成绩汇总

关于学生成绩的统计。统计方式很多，要求的格式也很多。

下面实例是统计每次测验的不及格的学生成绩。

作者：小林子（Office中国）

基础源数据：

不及格成绩效果图：

不及格成绩汇总动态图：

不及格成绩VBA代码：

Sub 不及格汇总()

    On Error Resume Next

    Dim x%, y%, arr(1 To 150, 1 To 15), n%, brr

    Range("k3:y152").ClearContents

    brr = Range("A3:H152")

    For y = 1 To 5

        n = 1

        For x = 1 To 150

            If brr(x, y + 3) < 60 Then

               arr(n, 1 + 3 * (y - 1)) = brr(x, 1)

               arr(n, 2 + 3 * (y - 1)) = brr(x, 3)

               arr(n, 3 + 3 * (y - 1)) = brr(x, y + 3)

               n = n + 1

            End If

        Next x

    Next y

    Range("K3:Y152") = arr

End Sub