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

时间:2026-02-12 22:27:01

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

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

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

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

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

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

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

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

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

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

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

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

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、点击双重循环按钮,就可以执行刚刚的代码,并将结果显示出来,如下图所示:

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

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

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

© 2026 五度知识库
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com