您可以在Excel VBA中使用Step关键字为循环的counter变量指定不同的增量。
1. 在工作表上放置一个命令按钮，并添加以下代码行：
Dim i 作为 整数
， i = 1 至 6 Step 2
Cells（i，1）.Value = 100
Next i
， i = 1 至 6 Step 2
Cells（i，1）.Value = 100
Next i
单击工作表上的命令按钮时的结果：
说明：For和Next之间的代码行将执行3次。对于i = 1，Excel VBA在行1和列1的交点处的单元格中输入值100。当Excel VBA到达Next i时，它将i增大2，并跳回到For语句。对于i = 3，Excel VBA在第3行和第1列的交点处的单元格中输入值100。
2. 在工作表上放置一个命令按钮，并添加以下代码行：
Dim j 作为 整数
对于 j = 8 到 3 Step -1
Cells（6，j）.Value = 50
下一个 j
对于 j = 8 到 3 Step -1
Cells（6，j）.Value = 50
下一个 j
单击工作表上的命令按钮时的结果：
说明：For和Next之间的代码行将执行六次。对于j = 8，Excel VBA在第6行和第8列的交点处的单元格中输入值50。当Excel VBA到达Next j时，它将j减1，然后跳回到For语句。对于j = 7，Excel VBA在第6行和第7列的交点处的单元格中输入值50。