Excel VBA 自动删除空白行

1、打开要删除空白行的文档。

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

Loop

End Sub。

5、找到并执行删除空行的宏，然后点击执行。