1、首先，打开含有成绩的Excel表格，如下图所示。
2、按下Alt+F11组合键，打开VBA编辑界面，点击左侧相应的工作表，出现右侧空白的代码编辑区，如下图所示。
3、编写代码：Sub 鱼木混猪()For Each r In Range("B2:B13")If r.Value < 60 Thenk = k + 1End IfNextMsgBox "不合格成绩有" & k & "个"End Sub代码的作用是统计B2:B13区域中成绩小于60的个数并提示，如下图所示。
4、将光标放在代码中间，点击“运行子程序”，如下图所示。
5、关闭VBA界面，返回Excel，就看到了成绩不合格人数的统计结果，如下图所示。
