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

  SelectionDelete Shift:=xlUp

  Else

  a = a + 1

      End If

Loop

End Sub。

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

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

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

以上就是关于Excel VBA 自动删除空白行全部的内容，包括:Excel VBA 自动删除空白行、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！