作者：绿色风
分类：
时间：2022-08-18
浏览：100
楼主
whsfhwm |
Q:如何在每间隔固定行数处插入空行?
A:当一个表格的A列数据有效区域没有空白单元格时，可以使用如下代码实现（下面示例中固定每隔52行插入空行）：- Sub 宏1()
- Dim iRows As Long
- Application.ScreenUpdating = False
- iRows = 52
- Do While Range("a" & iRows + 1) <> ""
- iRows = iRows + 1
- Rows(iRows & ":" & iRows).Select
- Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
- iRows = iRows + 52
- Loop
- Application.ScreenUpdating = True
- End Sub
 如何在每间隔固定行数处插入空行.rar
|
2楼
vcr0xe |
谢谢啊。受教了。 |
3楼
笑依然 |
太感谢了 我做库存表打商品出入库单的时候，就要隔14（12）行插入一行空行 用了楼主的宏 几千行我都不怕啦 真心感谢 0.gif
 |
4楼
木偶水豆腐 |
没有看明白诶，比如我需要在A列现有的内容基础上，每个4行插入一行，该如何操作？ |
5楼
LOGO |
- Sub kkk()
- Dim i As Integer, n As Integer, d As Integer
- n = Cells(Rows.Count, 1).End(xlUp).Row '获取A列最后一行的行数
- d = 52 '设置隔几行插入
- Select Case n
- Case Is < d
- Exit Sub
- Case Else
- Application.ScreenUpdating = False
- For i = n To d + 1 Step -d
- Cells(i, 1).Insert
- Next
- Application.ScreenUpdating = True
- End Select
- End Sub[code]Sub kkk()
- Dim i As Integer, n As Integer, d As Integer
- n = Cells(Rows.Count, 1).End(xlUp).Row '获取A列最后一行的行数
- d = 52 '设置隔几行插入
- Select Case n
- Case Is < d
- Exit Sub
- Case Else
- Application.ScreenUpdating = False
- For i = n To d + 1 Step -d
- Cells(i, 1).Insert
- Next
- Application.ScreenUpdating = True
- End Select
- End Sub
[/code] |
6楼
hellojiang |
好可爱的gif图片 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一