[已解决]请问这个宏 为什么执行后，最后的一部分数据没有添加上空行呢，谢谢

tudigeming

Sub 每隔8行插入一行()
Dim i
For i = 1 To ActiveSheet.Range("a65536").End(xlUp).Row
Rows(i & ":" & i + 0).Select
i = i + 8
Selection.Insert Shift:=xlDown
Next
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-4 13:10

插入或删除行列时，应该倒序。没有附件所以没有测试。
Dim i
For i = ActiveSheet.Range("a65536").End(xlUp).Row to 1 step -8
Rows(i & ":" & i + 0).Insert Shift:=xlDown
Next
End Sub

跳转到最佳答案楼层

大灰狼1976

插入或删除行列时，应该倒序。没有附件所以没有测试。
Dim i
For i = ActiveSheet.Range("a65536").End(xlUp).Row to 1 step -8
Rows(i & ":" & i + 0).Insert Shift:=xlDown
Next
End Sub

tudigeming

大灰狼1976 发表于 2017-8-4 13:10
插入或删除行列时，应该倒序。没有附件所以没有测试。
Dim i
For i = ActiveSheet.Range("a65536").End(x ...

谢谢狼狼
不过我测试的不对
然后蒙的改了一下就对了
但是我还是不知道为什么要这么改
Dim i
For i = ActiveSheet.Range("a65536").End(xlUp).Row + 1 To 1 Step -8
Rows(i & ":" & i + 0).Insert Shift:=xlDown
Next
End Sub

大灰狼1976

这个取决于你需要插入的位置和插入的行数了。看了附件我才好判断。
但是既然运行结果是正确的，那就表示你修改正确。