首先在菜单栏点击文件，在列表中点击选项，操作见下图。

我们在自定义工作区将右侧开发工具勾选上点击确定，操作见下图。

在菜单栏的开发工具下点击visual Basic打开vba,操作见下图。

在插入的模块中输入

Sub test1()

Cells(1, 1) = 1

Cells(2, 1) = 2

Cells(3, 1) = 3

End Sub

点击运行子过程，操作见下图。

插入新的模块并输入

Sub test2()

Dim i As Integer

For i = 1 To 3

Cells(i, 1) = i

Next

End Sub

点击运行子过程，则运行效果和第四步一样，通过for循环可以实现一行代码输入多个数据，不用每输入一个数据写一行代码，操作见下图。

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

操作见下图。

在excel开发工具菜单下点击宏工具弹出宏窗口选择test3点击执行，操作和效果见下图。

1、首先在菜单栏点击文件，在列表中点击选项

2、我们在自定义工作区将右侧开发工具勾选上点击确定

3、在菜单栏的开发工具下点击visual Basic打开vba

4、在插入的模块中输入代码实现单一列插入数据

5、通过for循环实现单列插入数据

6、在vba中插入新模块并输入for循环代码给excel某个区域赋值

tips:在vba可以按F5直接运行