1、首先打开wps 打开开发工具

2、点击vb编辑器

3、鼠标右键新建编程模块。

4、先写代码如下图

5、加入以下代码:
Sub abc()
Dim i As Integer
For i = 1 To 100 Step 7 ‘’每隔7个单元格
Range("a" & i) = 1
Next
End Sub

6、运行程序

7、运行结果 每隔7个单元格 填写数字1

时间:2026-02-12 16:57:17
1、首先打开wps 打开开发工具

2、点击vb编辑器

3、鼠标右键新建编程模块。

4、先写代码如下图

5、加入以下代码:
Sub abc()
Dim i As Integer
For i = 1 To 100 Step 7 ‘’每隔7个单元格
Range("a" & i) = 1
Next
End Sub

6、运行程序

7、运行结果 每隔7个单元格 填写数字1
