VBA Excel 中刪除空行

今天才看到這段 code ，太精簡了。

Sub DeleteBlanks()
Dim rng As Range
Set rng = Columns(1).SpecialCells(xlCellTypeBlanks)
rng.EntireRow.Delete
End Sub