VBA中的For...Next循环语句

点击上面"Excel公式与技巧"蓝字关注公众号

点击文章底部左下角"阅读原文"即可学习视频
学习建议【看千遍不如操作练习一遍】
微信号【duanzhenyun】加微信邀请进交流群

推荐学习120个技巧（包含常用技巧，条件格式，数据透视表及打印技巧），超过6个小时视频讲解，点击文章底部阅读原文即可购买学习。

长按下面二维码；点击上面"识别图中二维码"然后再点关注，可以收到更多Excel教程；或者加入QQ交流群657629885或者加我微信邀请进微信群duanzhenyun，让我们一起学习Excel函数公式与技巧应用。

For...Next循环语句
For循环变量名=开始数 to 结束数 Step （增加多少）
要操作的代码
Next 循环变量名

如下动画，在A1单元格输入Excel公式与技巧，这里没用到循环，所以只在单个单元格录入了数据。代码如下：

Sub 单个()

复制代码

Cells(1, 1) = "Excel公式与技巧"

复制代码

End Sub

复制代码

如果要循环这个代码，只需要声明变量后把For..Next嵌套进去即可，代码如下：

Sub 循环()

复制代码

Dim a As Variant

复制代码

Dim b As Variant

复制代码

b = 1

复制代码

For a = 1 To 8 Step 1

复制代码

Cells(b, 1) = "Excel公式与技巧"

复制代码

b = b + 1

复制代码

Next a

复制代码

End Sub

复制代码

动画效果如下：

在比如新建工作表，动画效果及代码如下：

Sub 新建工作表()

复制代码

Worksheets.Add

复制代码

End Sub

复制代码

面批量新建工作表定义一个变量加上For...Next循环语句即可，动画效果及代码如下：

Sub 批量新建工作表()

复制代码

Dim a As Byte

复制代码

For a = 1 To 10

复制代码

Worksheets.Add

复制代码

Next a

复制代码

End Sub

复制代码

更多Excel函数使用及技巧可以打开公众号，点开历史文章，然后在顶部搜索技巧或者函数即可，如不会可点击红色字体跳转连接看操作步骤，如何利用公众号搜索功能查资料
喜欢本文，请点这里