1、首先在菜单栏点击文件，在列表中点击选项，操作见下图。
2、我们在自定义工作区将右侧开发工具勾选上点击确定，操作见下图。
3、在菜单栏的开发工具下点击visual Basic打开vba,操作见下图。
4、在插入的模块中输入
Sub test1()
Cells(1, 1) = 1
Cells(2, 1) = 2
Cells(3, 1) = 3
End Sub
点击运行子过程，操作见下图。
5、插入新的模块并输入
Sub test2()
Dim i As Integer
For i = 1 To 3
Cells(i, 1) = i
Next
End Sub
点击运行子过程，则运行效果和第四步一样，通过for循环可以实现一行代码输入多个数据，不用每输入一个数据写一行代码，操作见下图。
6、for循环不仅可以给单列赋值，还可以给excel某个区域赋值，在vba中插入新模块并输入
Option Explicit
Sub test3()
Dim i As Integer, c As Range
i = 0
For Each c In Range("a1：d6")
i = i + 1
c.Value = i
Next
End Sub
操作见下图。
7、在excel开发工具菜单下点击宏工具弹出宏窗口选择test3点击执行，操作和效果见下图。
1、首先在菜单栏点击文件，在列表中点击选项
2、我们在自定义工作区将右侧开发工具勾选上点击确定
3、在菜单栏的开发工具下点击visual Basic打开vba
4、在插入的模块中输入代码实现单一列插入数据
5、通过for循环实现单列插入数据
6、在vba中插入新模块并输入for循环代码给excel某个区域赋值
