根据特定列中的单元格值删除行

Question

我正在开发一个Excel VBA项目。

当B列中的单元格为空时，我删除了多行。代码如下：

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

现在，当列E中的单元格值不是数字时，我想删除多行。

你能帮我一个类似上面的代码吗？

谢谢！

Answer 1

SpecialCells也可以选择其他细胞类型：

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

和/或

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