用VBA删除EXCEL空白行

Alt+F11 召唤神龙！

复制下面的代码后执行即可~

Sub pp()
    Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub