答案 0 :(得分:0)
试试这个:
答案 1 :(得分:0)
如果你想快速做到这一点,你可以
1.选择包含要删除的空白行的范围。
2.点击主页>找到&选择>去特别。
3.在“转到特殊”对话框中,选中“空白”选项。
你已经完成了
快速VBA功能也可以处理
Sub DeleteBlankRows()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Remove blank rows from excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For i = xRows To 1 Step -1
If Application.WorksheetFunction.CountA(WorkRng.Rows(i)) = 0 Then
WorkRng.Rows(i).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
End If
Next
Application.ScreenUpdating = True
End Sub
此外,如果您想让您的工作更轻松,您可以尝试使用kutools,然后只需点击一下即可删除空白行https://www.extendoffice.com/download/kutools-for-excel.html