Excel VBA 自動刪除空白行

1、打開要刪除空白行的文檔。

2、Alt+F11打開VB編輯器，右鍵新建壹個模塊。

3、新建模塊後，輸入

Sub 刪除空行()

Dim a

a = 1

Do While Cells(a, "a") <> ""

? If Cells(a, "D") = "" Then

Rows(a).Select

Selection.Delete Shift:=xlUp

Else

a = a + 1

End If

End Sub。

4、輸入代碼後，在工具欄中找到開發工具——宏，點擊執行命令。

5、找到並執行刪除空行的宏，然後點擊執行。

6、運行完成後，就可以把空白行刪除了。