Excel隔行插入空白行

方法1：采用排序的方式，这个方法很多教程，不再累述；

方法2：使用VBA编程方式。

Sub 隔行插入一行()
p = [a65536].End(xlUp).Row
For i = 2 To p * 2 Step 2
Rows(i & ":" & i).Insert Shift:=xlDown
Next i
   Range("A1").Select
End Sub
Sub 恢复()
p = [a65536].End(xlUp).Row
For i = 2 To p
Rows(i & ":" & i).Delete Shift:=xlUp
Next i
   Range("A1").Select
End Sub