不及格成绩汇总

关于学生成绩的统计。统计方式很多，要求的格式也很多。 下面实例是统计每次测验的不及格的学生成绩。 作者：小林子（Office中国） 基础源数据：

1487060676951389.jpg

不及格成绩效果图：

1487060676388318.jpg

不及格成绩汇总动态图：

1487060555964385.gif

不及格成绩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