如果单元格包含文本，请删除一行

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