关于学生成绩的统计。统计方式很多，要求的格式也很多。
下面实例是统计每次测验的不及格的学生成绩。
作者：小林子（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
