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