求一个VBA代码?先谢啦!

Sub delerJSrow()
For i = 1 To 65536
 If Len(Cells(i, 1)) Then
 Rows(i).Delete
 End If
Next
End Sub
不用VBA也行！
在空列中第一行插入公式：
=MOD(ROW(),2)
再筛选出1的值删除即可�

谢谢吧主!太棒了!