求EXCEL插入固定值行数VB

小马2012

工作需要：
1. 如原清单有行数100行，取了标题1行，就余下99行（实际人数就是99人）。这个99就是根据实际人数来定。

2  现在在新工作表中第mod第七行之间就要插入99行。

希望通过“宏安扭”执行

3190496160

Sub 插入行()
r = Sheets("原清单").Cells(Rows.Count, 1).End(xlUp).Row - 1
With Sheets("插入行")
    .Rows("7:" & r + 6).Insert Shift:=xlDown
End With
MsgBox "ok!"
End Sub

3190496160

A插入行.rar (21.6 KB, 下载次数: 5)

2022-6-10 08:29 上传

点击文件名下载附件

小马2012

3190496160 发表于 2022-6-10 08:29

老师，谢谢您！

小马2012

3190496160 发表于 2022-6-10 08:29

老师，我录制了个宏，试了完全能用。现在我想把这个宏执行一定的“次数”，这个“次数”取决于原清单的“行数-1”。这个能不能做个VB

3190496160

小马2012 发表于 2022-6-10 10:18
老师，我录制了个宏，试了完全能用。现在我想把这个宏执行一定的“次数”，这个“次数”取决于原清单的“ ...

谁知道你录制的宏是什么

hejia-690403732

纯粹的插入行数？

小马2012

谢谢各位老师，我的问题解决了！