Excel VBA 刪除空白行的程式

*情境：有個Excel檔，資料表如下

資料1
空白行1
資料2
空白行2
...
...

*撰寫VBA以自動刪除：

Sub delLoop()
Dim i
For i = 1 To 20 Step 1
Rows(i).EntireRow.Delete
Next
End Sub

寫完按F5選Sheet執行就可以

執行前請先複製一張新表，

用程式自動刪的資料是回不去的~

By Sivitry.