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

标签 vba excel

请告诉我检查单元格是否包含字母和数字或单元格仅包含字母的过滤器是什么?如果仅包含数字,则必须传递到下一个单元格。我一直在搜索,但唯一的结果是单元格是否包含特定值或文本,但我找不到我的问题的示例。

    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

最佳答案

之前:

enter image description here

我会检查每个字符:

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

注意:

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

及之后:

enter image description here

关于vba - 如果单元格值包含字母和数字,则删除行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40153578/

相关文章:

excel - 显示带有超时值的消息框

vba - 在本地处理预期错误的模式,重新抛出意外错误

vba - 将值输入到另一个宏调用的输入框

java - 计算从特定索引到最后一行的 Excel 行数 - Apache POI

vba - 将 CSV 合并到一张表中并删除标题

excel - 如果没有边框,为什么范围的边框宽度为 xlThin

excel - 地址上方首次使用的单元格

php - 如何根据用户输入从Excel工作表中查找数据

Python:测试单元格是否为空时无限循环

excel - .Names 中不存在特定的命名范围