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

我用这段代码删除了所有空白的行：

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