1、首先打开wps 开发工具

2、点击vb编辑器

3、鼠标右键新建模块

4、点击插入命令

5、选择模块命令

6、在右侧输入以下代码
Sub gyz()
Dim i As Integer
For i = 1 To 100
Range("a" & i) = 1
Next
End Sub

7、点击运行看看结果

8、A1-A100单元格自动填写数字1

1、首先打开wps 开发工具

2、点击vb编辑器

3、鼠标右键新建模块

4、点击插入命令

5、选择模块命令

6、在右侧输入以下代码
Sub gyz()
Dim i As Integer
For i = 1 To 100
Range("a" & i) = 1
Next
End Sub

7、点击运行看看结果

8、A1-A100单元格自动填写数字1
