1、首先打开wps 打开开发工具
2、点击vb编辑器
3、鼠标右键新建编程模块。
4、先写代码如下图
5、加入以下代码:Sub abc()Dim i As IntegerFor i = 1 To 100 Step 7 ‘’每隔7个单元飙空蒈开格Range("a" & i) = 1NextEnd Sub
6、运行程序
7、运行结果 每隔7个单元格 填写数字1
1、首先打开wps 打开开发工具
2、点击vb编辑器
3、鼠标右键新建编程模块。
4、先写代码如下图
5、加入以下代码:Sub abc()Dim i As IntegerFor i = 1 To 100 Step 7 ‘’每隔7个单元飙空蒈开格Range("a" & i) = 1NextEnd Sub
6、运行程序
7、运行结果 每隔7个单元格 填写数字1