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

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.就统计并提示数据区域中成绩不合格的个数。