1、首先在菜单栏点击文件，在列表中点击选项，操作见下图。
2、我们在自定义工作区将右侧开发工具勾选上点击确定，操作见下图。
3、在菜单栏的开发工具下点击visual Basic打开vba,操作见下图。
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 I荏鱿胫协nteger, c As Rangei = 0For Each c In Range("a1：d6")i = i + 1c.Value = iNextEnd Sub操作见下图。
7、在excel开发工具菜单下点击宏工具弹出宏窗口选择test3点击执行，操作和效果见下图。
