如果单元格值包含字母和数字，则删除行

请告诉我什么是filter来检查一个单元格是否包含字母和数字或单元格只包含字母？ 如果只包含数字，则必须传递给下一个单元格。 我一直在寻找，但唯一的结果是，如果单元格包含一定的价值或文字，但我无法find一个例子形成我的问题。

With ActiveSheet Firstrow = .UsedRange.Cells(1).Row Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row For Lrow = Lastrow To Firstrow Step -1 With .Cells(Lrow, "e") If .Value = " cell has letters AND numbers OR just letters " Then .EntireRow.Delete End With Next Lrow End With 

Answer 1

之前：

我会检查每个字符：

 Sub qwerty() Dim KillMe As Boolean, CH As String With ActiveSheet Firstrow = .UsedRange.Cells(1).Row Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row For Lrow = Lastrow To Firstrow Step -1 KillMe = False With .Cells(Lrow, "e") For i = 1 To Len(.Value) CH = Mid(.Value, i, 1) If CH Like "[a-zA-Z]" Then KillMe = True Next i If KillMe Then .EntireRow.Delete End With Next Lrow End With End Sub 

注意：

这忽略了标点符号和特殊字符。 它只查找字母。

之后：

Answer 2

使用这样的WorksheetFunction：

 Dim wf As WorksheetFunction Set wf = Application.WorksheetFunction ... If Application.Evaluate("=Count(Find({0,1,2,3,4,5,6,7,8,9}," & _ .Address & ")) > 0") Then ... 

Answer 3

取决于您可以使用的单元格的格式

With ActiveSheet Firstrow = .UsedRange.Cells(1).Row Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row For Lrow = Lastrow To Firstrow Step -1 With .Cells(Lrow, "e") If worksheetfunction.IsText(.Value) Then .EntireRow.Delete
End With Next Lrow End With