Excel VBA删除包含字母的行

所以我有一组数据，有各种数字，末尾有字母 例如

233423528535A
3453453453945
234234235532C
3453453455345
234234238964D
3453453453234
656234234534G
346364634636Z
6456456456452
3453453453242
234234234234X

我想创建一个vba脚本，如果此列中的一行包含字母，则可以将其删除。

---

我尝试使用excel函数，但是excel函数不允许删除行

运行此短子行以删除列A中包含非数值的所有行

Sub noAlphas()
    On Error Resume Next
    With Worksheets("sheet4")
        .Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
    End With
End Sub

---

运行此短子行以删除列A中包含非数值的所有行

Sub noAlphas()
    On Error Resume Next
    With Worksheets("sheet4")
        .Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
    End With
End Sub

以下是我的建议：

 Sub RemLetterRows()
    Dim DelRow As Range
    With ThisWorkbook.Sheets("Sheet1").Range("A:A") ' Write your sheetname between "" & column
        On Error Resume Next
          Set DelRow = .SpecialCells(xlCellTypeConstants, xlErrors + xlTextValues + xlLogical)
          DelRow.EntireRow.Delete
        On Error GoTo 0
    End With
    End Sub

问候 丹尼尔

以下是我的建议：

 Sub RemLetterRows()
    Dim DelRow As Range
    With ThisWorkbook.Sheets("Sheet1").Range("A:A") ' Write your sheetname between "" & column
        On Error Resume Next
          Set DelRow = .SpecialCells(xlCellTypeConstants, xlErrors + xlTextValues + xlLogical)
          DelRow.EntireRow.Delete
        On Error GoTo 0
    End With
    End Sub

问候

---

Daniel

如果单元格格式为文本，请尝试转换它们并根据类型不匹配错误删除：

亚北极区 出错时继续下一步

For i = 11 To 1 Step -1
    j = CLng(Cells(i, 1).Value)
    If Err.Number = 13 Then Rows(i).EntireRow.Delete

Next

---

End Sub

如果单元格格式为文本，请尝试转换它们并根据类型不匹配错误删除：

亚北极区 出错时继续下一步

For i = 11 To 1 Step -1
    j = CLng(Cells(i, 1).Value)
    If Err.Number = 13 Then Rows(i).EntireRow.Delete

Next

---

End Sub

单元格中的数字是否为真，文本是否都在单元格中左右对齐？它们是常规格式还是文本格式？右（，1），其中字符串是您的单元格。值它们是左对齐和常规文本，并且并非所有单元格中的字符数都相同，例如单元格中的true Number和Text>它们在单元格中都是右对齐和左对齐的吗？它们是常规格式还是文本格式？右（，1），其中字符串是单元格。值它们是左对齐的常规文本，而且，并非所有的单元格中都有相同数量的字符。关于将所有可能的非数字XLL特殊单元格值可能性叠加在一起，这一点很好。@Jeeped实际上我们有几乎相同的解决方案=），但谢谢！把所有可能的非数字XLLSpecialCells值可能性叠加在一起，这一点很好。@Jeeped实际上我们有几乎相同的soltuion=），但谢谢！嘿，我有一组新数据，但它正在删除所有内容！数据是这样的

376600693A 417243292C2 371785392 373608918A 369780072 363643189 383600770 3840293360 365219868M 365216930M 381766640 368804162 363889817 370021985 38215282 306306306377 423549718 37221916 296921199 367601665 601615781 3678066642a 373881174，它的左对齐和一般文本，但它删除了所有内容。嘿，我有一组新的数据，但它删除了所有内容！数据是这样的
376600693A 417243292C2 371785392 373608918A 369780072 363643189 383600770 3840293360 365219868M 365216930M 381766640 368804162 363889817 370021985 38215282 306306306377 423549718 37221916 296921199 367601665 601615781 3678066642a 373881174，它的左对齐和一般文本，但它删除了所有内容。