方法一：比如有10行数据，在A列插入一个辅助列，填入1、2、3。。。一直填到10，在A11单元格中填入1.5 ，A12填入2.5 ，A13填入3.5 。。。一直到A19 填入9.5 最后对整个数据区域按A列升序排序即可.

方法二：使用宏

Sub addrow()
'
'从第二行到500行，隔一行插入一行空行 '
For i = 2 To 1000 step 2
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
Next End Sub