基于空白单元格删除行

Question

是否有一种简单的方法来告诉Excel删除一行，如果在相交列中的某个单元格是空白的?这需要VBA吗?

作为参考点，我发现以下VBA代码:

Dim FoundCell As Range
    Application.ScreenUpdating = False
    Set FoundCell = Range("B:B").Find(what:="")
    Do Until FoundCell Is Nothing
        FoundCell.EntireRow.Delete
        Set FoundCell = Range("B:B").FindNext
    Loop

但是由于某些原因，当我试图运行它时它崩溃了

Answer 1

如果您希望删除列B中值为空的所有行，则尝试:

Sub KleanB()
    Dim B As Range, rDel As Range, r As Range, N As Long
    N = Cells(Rows.Count, "B").End(xlUp).Row
    Set B = Range("B1:B" & N)
    B.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Answer 2

非vba解决方案:

选择可能出现空格的列。按F5(转到)，单击特殊并选择空白。单击OK。只会选择空白单元格。右键单击其中一个空白单元格并单击Delete Row。