删除行如果单元格中包含文本

Question

我已经使用这个代码删除其对所有空行：

Sub DelBlankRows() 
    Columns("L:L").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub 

现在我需要删除不为空的所有行。就像列L：L中的某个单元格包含任何文本或数字一样，它将删除整行。

Answer 1

这样做的一种方法是摆脱所有具有常量或公式的单元格，这些单元格应该覆盖其中包含所有单元格的所有单元格。

戈登

Sub DelNonBlankRows() 
    Columns("L:L").SpecialCells(xlCellTypeConstants).EntireRow.Delete 
    Columns("L:L").SpecialCells(xlCellTypeFormulas).EntireRow.Delete 
End Sub