EXCEL怎么批量每隔一行插入一个空白行？

Question

E

Answer 1

　　需要在每行内容前面加一行空白，可以用排序功能做到，方法如下：

在已经写好的内容之后一列中写上编号（1、2、3、4、5……）


在表格的最后一行后面和之前写编号相同的列里面再复制一次之前写的编号

以这里的编号为升序，对表格进行排序

删除编号这一列

Answer 2

==========================================================================
按Alt+F11，输入以下代码：

Sub 隔行插入()
Application.ScreenUpdating = False
Dim i%, j%, x%, y%
x = 1 '间隔行数
y = 1 '插入行数
With ActiveSheet
For i = 1 To y
For j = 1 To .[A65536].End(xlUp).Row + Int(.[A65536].End(xlUp).Row / (x + i - 1))
If j Mod (i + x) = 0 Then .Rows(j).Insert
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub

回到Excel，按Alt+F8，运行改宏便可。