本篇经验将和大家分享【VBA语句for to ...next之应用】！
工具/原料
1
电脑壹台
2
office办公软件
方法/步骤
1
通过实例【依据表格求二年级的人数？】
2
在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！
3
在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！
4
会弹出【代码编辑】窗口！
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
6
在VBA界面，同时按下CTRL+F11，返回工作表。在工作表界面，点击【开发工具】菜单下的【插入】，选择一【表单按钮】。
7
在空白单元格处，拉出一【按钮】，在同时弹出的【指定宏】窗口，选取编辑的代码，点击【确定】。
8
将按钮重命名为【计算】，