图示EXCEL表格vba系列14之双重循环循环套循环

1、首先需要将格式在excel表格中设置好，以便达到自己需要的要求，如下图所示：

2、需要将循环按钮指定到模块代码中，当然也是可以新建模块的，如下图所示：

3、操作以上步骤的目的是为了，将按钮的点击事件就可以执行模块1中的代码。

1、接下来就是编写代码了，先编写一个单程循环，如下图所示：

2、然后需要定义另外一个变量后再写一个循环，这个循环是执行在另外一循环里面，如下图所示：

3、双层循环的样式很简单，也就是将循环写入另外一个循环就可以了。

1、最后在简单执行双层循环，使其能够简单显示出来，换句话说也就是显示循环的结果，如下图所示：

2、代码如下：

Dim i As Integer

Dim j As Integer

    For i = 2 To 11

        For j = 1 To 6

            Sheet1.Cells(j + 1, 1) = i + j

        Next j

        Sheet1.Cells(i, 4) = i + j

    Next i

3、点击双重循环按钮，就可以执行刚刚的代码，并将结果显示出来，如下图所示：

4、换句话说，点击按钮后，代码运行的结果就是如下图所示的结果。