VBA如何统计成绩不合格人数

1、首先，打开含有成绩的Excel表格，如下图所示。

3、编写代码：Sub 鱼木混猪()For Each r In Range("B2:B13")If r.Value < 60 Thenk = k + 1End IfNextMsgBox "不合格成绩有" & k & "个"End Sub代码的作用是统计B2:B13区域中成绩小于60的个数并提示，如下图所示。

5、关闭VBA界面，返回Excel，就看到了成绩不合格人数的统计结果，如下图所示。