实现效果
原表如下图:(本方法中要插入的行数可自定义设置,要间隔的行数也可自定义设置)
要实现的效果是:每间隔一行插入一行,如下图:
实现方法: 采用WPS表格js宏实现,
1. 打开要处理的表格 ,点击开发工具,再点击JS宏,(显示VB宏的请先点击“切换的JS环境”):`
2. 点击创建,输入宏名称
3. 复制以下代码到代码编辑框,并保存(ctrl+S)。
var col_range=“1:1” 从第一行开始插入,若需要从第3行开始插入可将参数改为var col_range=“3:3” 。
var num_goal=10 代表一共插入10行,若需要插入100行,可将参数改为100。
var jiange=1 每间隔一行插入空行,若需要间隔3行可将参数改为3。
function 间隔迭代插入空行()
{
var col_range="1:1" //从第一行开始插入,插入宽度为整行。在每一行的上方插入。
var num_goal=10 //一共插入10行
var jiange=1 //每间隔一行插入空行
var cel=ActiveWorkbook.ActiveSheet.Range(col_range)
cel.Select()
for(num=1;num<=num_goal;num++ ){
cel.Insert(1)
cel=cel.Offset(jiange)
cel.Select
}
}
4. 点击运行,进行插入。
运行后的效果如图: