Удалить строку, если ячейка содержит текст

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