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

Loop

End Sub。

4、输入代码后，在工具栏中找到开发工具——宏，点击执行命令。

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

6、运行完成后，就可以把空白行删除了。