1、打开表格,点击开发工具,选择并单击Visual Basic。

2、然后在VBE界面上方工具栏点击插入,选择模块。

3、接着我们在这个模块1里面就可以输入代码了。

4、我们先在模块1里面手动写一个·Sub过程。

5、接着我们需要声明一个变量,Dim i As Integer,这里把变量I声明为一个-32768到32768的整数。

6、此处我们写一个简单的循环语句,For i = 1 To 100,(i是循环变量,1是初值,100是终值,默认步长为1);

7、结合上面完整的就是:
Sub 填充数据()
Dim i As Integer
For i = 1 To 100
ActiveSheet.Cells(i, 1).Value = i
Next i
End Sub
