Excel VBA中for循环语句的用法
工具/原料
1
演示电脑：HP 246 G4 Notebook PC
2
excel版本：excel 2010
方法/步骤
1
首先在菜单栏点击文件，在列表中点击选项，操作见下图。
2
我们在自定义工作区将右侧开发工具勾选上点击确定，操作见下图。
4
在插入的模块中输入Sub test1()Cells(1, 1) = 1Cells(2, 1) = 2Cells(3, 1) = 3End Sub点击运行子过程，操作见下图。
5
插入新的模块并输入Sub test2()Dim i As IntegerFor i = 1 To 3Cells(i, 1) = iNextEnd Sub点击运行子过程，则运行效果和第四步一样，通过for循环可以实现一行代码输入多个数据，不用每输入一个数据写一行代码，操作见下图。
6
for循环不仅可以给单列赋值，还可以给excel某个区域赋值，在vba中插入新模块并输入Option ExplicitSub test3()Dim i As Integer, c As Rangei = 0For Each c In Range('a1：d6')i = i + 1c.Value = iNextEnd Sub操作见下图。
7
在excel开发工具菜单下点击宏工具弹出宏窗口选择test3点击执行，操作和效果见下图。
总结
1、首先在菜单栏点击文件，在列表中点击选项2、我们在自定义工作区将右侧开发工具勾选上点击确定3、在菜单栏的开发工具下点击visual Basic打开vba4、在插入的模块中输入代码实现单一列插入数据5、通过for循环实现单列插入数据6、在vba中插入新模块并输入for循环代码给excel某个区域赋值
注意事项
tips:在vba可以按F5直接运行
上一篇：宝宝腹泻的用药指南