请选择 进入手机版 | 继续访问电脑版
用户
 找回密码
 立即注册

只需一步,快速开始

搜索
查看: 1681|回复: 0

隔行插入行

[复制链接]

9

主题

9

帖子

251

积分

超级版主

Rank: 8Rank: 8

积分
251
发表于 2018-8-18 08:36:57 | 显示全部楼层 |阅读模式
对选区隔行插入一个空行
用range.Insert和range.Resize
sub 隔行插入行()
if typeName(selection)<>"Range" then exit sub  '如果选区不是range对象就退出程序
     if selection.Rows.count<=2 then exit sub '如果选区小于2行就退出程序
            Dim RowNum as byte '声明Byte型变量 用于存储行数 可根据需求随意设置行数
            RowNum=1 ‘行数预设值为1 ,可随意修改
application.ScreenUpdating=false  ’关闭屏幕刷新
Dim Item as Interger, rng as range  '声明变量,其中item用于循环语句,rng用于存储已用区域与选区的交集
       set rng =Intersect(selection,avtivesheet.usedrange) '将选区与活动工作表的已用区域设置的交集赋予变量
      for item =rng.rows.count to 2 step -1 '开始倒序循环,即从后面开始向前循环
            rng.rows(item).resize(RowNum,1).entireRow.Insert '插入rownum行
      Next Item
application.ScreenUpdating =true '恢复屏幕刷新
end sub



回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则