WPS宏实现表格批量插入多行

感觉这个过程有点繁琐,后面再改进吧。

/**
 * 每隔3行插入2行空白行
 */
function Macro5()
{
  //1、选中第一行
  Range("A1").EntireRow.Select();
  //2、统计表格有多少行数据,用于for循环控制次数,End(xlDown):一直向下直到空单元格停止
  var a = Range("A1").Rows.End(xlDown).Row;
  Console.log("表格有:"+a+"行数据");
  var b = a/3;
  Console.log("隔3插2要插:"+b+"次");
  //3、Insert()方法只能插入1行,写for循环,插几行就循环几次,先插入两行用于后面copy
  var c = 2;
  for(var j=1;j<=c;j++){
      Range("A5").EntireRow.Insert(xlShiftDown, true);
  }
  //4、选择框下移,目前在A5这行
  ActiveCell.Offset(4, 0).EntireRow.Select();
  //5、设置for循环条件,开始循环插入2行
  for(var i=1;i<=b;i++){
   /*知识点:
     ActiveCell.Offset(5, 0) 光标向下移动到第四行位置,即第三行上方的位置
     Acti

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值