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

Question

请告诉我过滤器是用来检查单元格是否包含字母和数字，或者单元格是否只包含字母？如果只包含数字，它必须传递给下一个单元格。我一直在寻找，但唯一的结果是，如果单元格包含某些值或文本，但我无法找到一个例子形成我的问题。

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

根据单元格的格式，你可以可以使用

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

Answer 3

使用这样的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  
...