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、运行完成后，就可以把空白行删除了。