打开要删除空白行擢爻充种的文档。
Alt+F11打开VB编辑器，右键新建一个模块。
新建模块后，输入
Sub删除空行()
Dima
a=1
DoWhileCells(a,"a")<>""
IfCells(a,"D")=""Then
Rows(a).Select
Selection.DeleteShift:=xlUp
Else
a=a+1
EndIf
Loop
EndSub。
输入代码后，在工具栏中找到开发工具——宏，点击执行命令。
找到并执行删除空行的宏，然后点击执行。
运行完成后，就可以把空白行删除了。
