隔一行插入一空行，插入相同的内容，怎么实现

幸福一样

gaoshuichang1

隔行插入任意空行。

1. Sub test()
   
2.     Dim r%, i%, m%
   
3.     Application.ScreenUpdating = False
   
4.    m = Application.InputBox("请输入想要插入的空行的行数")
   
5.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
6.     For i = r To 1 Step -1
   
7.         Rows(i + 1).Resize(m).Insert
   
8.         Application.ScreenUpdating = True
   
9.     Next
   
10. End Sub
    

复制代码

[/code]

seal258

用2列辅助（辅助列的数字错位填写），定位空值，再插入列可以达到同样的效果。你的排序效果也好

鱼求雨

这么好的帖子。。。才发现。