请告诉我检查单元格是否包含字母和数字或单元格仅包含字母的过滤器是什么?如果仅包含数字,则必须传递到下一个单元格。我一直在搜索,但唯一的结果是单元格是否包含特定值或文本,但我找不到我的问题的示例。
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
最佳答案
之前:
我会检查每个字符:
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
注意:
这会忽略标点符号和特殊字符。它仅查找字母。
及之后:
关于vba - 如果单元格值包含字母和数字,则删除行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40153578/