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的基礎知識。