如何删除所有空单元格的空白行并保留其他有空单元格的行？

Question

我有一个这样的 mircosoft office excel 文件，

当我使用方法：Find special->blank 搜索所有行，但我只想删除所有空白行，如何实现？

Answer 1

将其放入 VBA 中的模块，select 您要处理的单元格范围，然后运行宏 ...

Public Sub DeleteBlankRows()
    Dim objRow As Range
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo ExitGracefully
    
    With Selection
        For lngRow = .Rows.Count To 1 Step -1
            For Each objRow In .Rows(lngRow)
                If WorksheetFunction.CountBlank(objRow) = objRow.Cells.Count Then
                    objRow.Delete xlShiftUp
                End If
            Next
        Next
    End With
    
ExitGracefully:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

...它将单独处理每一行，并确定空白单元格的数量是否与您 select 编辑的行中的单元格总数相匹配。如果它们匹配，它会将所有单元格向上移动。

如果要删除工作表中的整行，请更改此行..

objRow.Delete xlShiftUp

...到这个...

objRow.EntireRow.Delete xlShiftUp

Answer 2

将 Headers 添加到列中

应用过滤器

设置每一列只显示空白

删除所有行

删除过滤器

如何删除所有空单元格的空白行并保留其他有空单元格的行？

How to delete a blank row with all empty cell and keep others row that have some empty cell?

excel

excel-2007

excel-2010