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