excel怎么批量删除空白行(Excel如何用VBA批量删除空白行)

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

2、Alt+F11打开VB编辑器，右键新建一个模块。

3、新建模块后，输入Sub 删除空行()Dim aa = 1Do While Cells(a, "a") "" If Cells(a, "D") = "" Then Rows(a).Select Selection.Delete Shift:=xlUp Else a = a + 1 End If LoopEnd Sub。

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

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

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