ExcelHome学院

 找回密码
 入学
白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
查看: 7839|回复: 37

[综合技巧] 隔行插入空行的三种方法

  [复制链接]
发表于 2011-11-3 13:54:46 | 显示全部楼层 |阅读模式
本帖最后由 f8b1987 于 2011-12-20 11:49 编辑

隔行插入空行,经常遇到有人问这种问题,现在归纳一下。

1. 一个辅助列 ,填充序列,借助排序功能,把空白行与原来的行排序。该操作是根据相同序列号,排序的时候会排列在一起,实现类似插入空行的效果;注意,关键字排序选择序列号所在列字段
辅助列插入空白行1.gif


2.两个个辅助列,隔行填充数字,借助F5定位空白功能,插入行。两列隔行填充序列,刚好错开原始数据,定位后插入刚好可以在每一行前插入一行。
两个辅助列插入2.gif



3.借助VA实现。复制以下代码,运行即可。注意:代码中的数字5表示有五行数据需要在第2行(to后面的2)隔1行(-1)插入一行,可以自行修改一下;如果要隔一行插入2行,只要把Rows(i & ":" & i)改为Rows(i & ":" & (i+1))即可。如果对VBA没有任何认识,不太建议使用此方法。



Sub 选定范围隔行插入一行()
   Dim i As Integer   
   For i = 5 To 2 Step -1
'第2行前开始才插入空白
       Rows(i & ":" & i).Insert
'第5行前插入一行空白,第4行插入一行空白,依次,一直到第2行前插入插入一行空白终止
     Next
End Sub

VBA插入空行.gif



Sub 隔4行插入表头()
For i = 29 To 6 Step -4
    '结尾行是29,第二次出现表头的行是6,间隔4行插入表头
     Range("A1:K1").Copy
     '表头是A1:K1
     Rows((i - 3) & ":" & i).Insert Shift:=xlDown
     '间隔是i和i-3之间,也就是相差4行插入
Next
End Sub

评分

参与人数 1登攀 +70 收起 理由
zzmxy + 70

查看全部评分

回复

使用道具 举报

发表于 2011-11-4 14:55:53 | 显示全部楼层
非常感谢楼主的分享……
虽然技术论坛有很多此类的帖子,但培训中心确实是一个空白! {:soso_e163:}
回复 支持 反对

使用道具 举报

发表于 2011-12-9 16:31:18 | 显示全部楼层
真佩服会用VBA的人 呵呵 在EH这么久了 感觉VBA是一座很难跨过去的山  
回复 支持 反对

使用道具 举报

发表于 2011-12-11 17:33:33 | 显示全部楼层
第一个方法最简单,一学就会!~谢谢
回复 支持 反对

使用道具 举报

发表于 2011-12-12 13:09:45 | 显示全部楼层
感谢楼主分享,可是VBA俺不会{:soso_e115:}
回复 支持 反对

使用道具 举报

发表于 2012-3-25 18:16:20 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-5-9 16:32:46 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-5-21 15:32:06 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-6-10 16:45:12 | 显示全部楼层
有的时候有用到,但从没有想过还有这么简单地方法,学习了,太感谢了!
回复 支持 反对

使用道具 举报

发表于 2012-6-15 18:00:59 | 显示全部楼层
谢谢分享了!












肇庆网站建设 www.qiyouseo.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

小黑屋|手机版|ExcelHome ( 沪ICP备11019229号-2 )

GMT+8, 2024-3-19 15:17 , Processed in 0.047339 second(s), 25 queries .

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表