Удаление строк на основе значения ячейки в определенном столбце

Question

Я работаю над проектом Excel VBA.

Я удаляю несколько строк, когда ячейка в столбце B пуста. А код выглядит следующим образом:

Columns("B:B").Select 
Selection.SpecialCells(xlCellTypeBlanks).Select 
Selection.EntireRow.Delete 

Теперь я хотел бы удалить несколько строк, когда значение ячейки в колонке Е не является числом.

Не могли бы вы помочь мне с кодом, подобным приведенному выше?

Спасибо!

Answer 1

SpecialCells может выбрать другой тип клеток тоже:

Columns(2).SpecialCells(xlCellTypeConstants, _ 
    xlTextValues + xlLogical + xlErrors).EntireRow.Delete 

и/или

Columns(2).SpecialCells(xlCellTypeFormulas, _ 
    xlTextValues + xlLogical + xlErrors).EntireRow.Delete