VBA语句for to ...next之应用

1、通过实例【依据表格求二年级的人数？】

3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

5、在【代码编辑】窗口，输入如下代码。Sub fortonext()Dim a As 诔罨租磊Integer, b%For a = 2 To 8 Step 1 朐袁噙岿If Sheet6.Cells(a, 7) = "二班" Then Exit ForNextFor b = 2 To 8 Select Case Sheet6.Range("g" & b) Case "三班" Exit For End SelectNextMsgBox "二班的人数:" & b - aEnd Sub

7、在空白单元格处，拉出一【按钮】，在同时弹出的【指定宏】窗口，选取编辑的代码，点击【确定】。