Sub DeleteBlankRows() Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete Next i End Sub。这个代码的意思就是从最后一行开始向上检查每一行,如果这一行所有单元格都是空白的就删除这一行。输入好代码后运行宏,就可以快速批量删除间隔空白行啦。不过要是你不太懂代码,可能要先学习一下VBA的基础知识。