比如有200行excel的内容，我要在每行之间插入7行空行，请教有什么好方法可以快点搞定。
....更简单（直观）的办法：....1.首先在最左边插入一空列（A列）作为排序列（当然利用右边现有的空列也可），并在此列中对已有数据的200行通过系列填充添加一个自动编号（即在单元格A1到A200中填入从1到200）；....2.然后在单元格A201中输入初始值“1”，接着选中A201:A2000（即选足1400行），再单击菜单“编辑”-->“填充”-->“序列”,在“步长”中输入“0.142857143”即（七分之一），在“终止值”中输入“201”，单击“确定”进行系列填充；....3.最后以A列进行升序排序，这样每行数据空7行就大功告成！
提问者对答案的评价：
建立一个宏,输入下面的代码，之后运行这个宏就行了Sub 宏1()For i = 1 To 200 / 7Range("A" & i * 7).SelectSelection.EntireRow.InsertNextEnd Sub
循环最好从最后行开始，较容易，否则要考虑行号的变化Sub insertRow()r = Range("A1").CurrentRegion.Rows.CountFor i = r To 3 Step -1Range(i & ":" & i+6).EntireRow.InsertNext iEnd Sub
有个笨办法,很笨,但是还算有效.你要插几行,就选几行,比如你要在行三行前插入7行,就选中第三,第四,第五,第六,第七,第八,第九一共7行,然后右键选插入,就插入了7行.
在表格上拉一个矩形，右键点矩形，在弹出菜单中选择指定宏，在弹出菜单中选择新建宏，在Sub 按钮1_单击()End Sub的中间复制并粘贴如下代码：For i = 200 To 1 Step -1
Range("A" & i + 1).EntireRow.Insert
Range("A" & i + 2).EntireRow.Insert
Range("A" & i + 3).EntireRow.Insert
Range("A" & i + 4).EntireRow.Insert
Range("A" & i + 5).EntireRow.Insert
Range("A" & i + 6).EntireRow.Insert
Range("A" & i + 7).EntireRow.InsertNext切换回Excel表格，单击矩形，代码运行成功。如果不要宏代码了，可以重新右键点矩形，在弹出菜单中选择指定宏，在弹出菜单中选择编辑宏，把里面的代码统统删除，退出VBA编辑器，把矩形删除。 |
