删除单元格中文本字符串中具有特定编号的行

Question

我有一个包含约500个数据条目的列表，其中一些在单元格中具有相同编号的不同文本。 我需要找到所有带有“ 00000”的行并将其删除。 我需要计算“ test2”开始无法工作的时间（18:23），并且需要知道重新工作需要多长时间（18:30），并且error00000消息使我的公式弄乱了，所以我需要删除所有其中包含error00000的行。 错误消息永远不会相同，但其中的“ 000000”总是相同的。

我不知道如何用VBA代码找到它，因为我只能在单元格中单独找到数字。 数据条目每周可以更改，因此应与VBA一起更改。 我有一些代码，但是当数字单独存在于单元格中而不是像Error message 00000这样的句子中时，文本总是在变化，数字保持不变时，它可以在线工作。

我的代码用于删除单元格中仅包含数字的行

Private Sub CommandButton1_Click()
    Dim lRow As Long
    Dim iCntr As Long
    lRow = 1000
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 5).Value = "1008" Then
            Rows(iCntr).Delete
        End If
    Next
End Sub



03.09.2015 18:30    test2   EXAMPLETEXT blablablalb error000002
03.09.2015 18:25    test2   EXAMPLETEXT blablablalb error000000
03.09.2015 18:23    test2   EXAMPLETEXT blablablalb error000002
03.09.2015 18:30    test1   EXAMPLETEXT blablablalb error000002
03.09.2015 18:25    test1   EXAMPLETEXT blablablalb error000000
03.09.2015 18:23    test1   EXAMPLETEXT blablablalb error000002

Answer 1

尝试运行以下代码以删除过滤的行。 在运行代码之前，请确保输入变量strSearch ， strSearchColName和strSheetName 。

Sub Delete_Rows_Condtionally()
    Dim lastRow As Long
    Dim currentRow As Long
    Dim cellText As String
    Dim strSearch As String
    Dim strSearchColName As String

    strSearch = "000000"
    strSearchColName = "E"
    strSheetName = "tabelle2"

    With ThisWorkbook.Worksheets(strSheetName)

        'Get last row
        lastRow = .Range(strSearchColName & .Rows.Count).End(xlUp).Row
        currentRow = lastRow
        Do While currentRow >= 1
            cellText = .Range(strSearchColName & currentRow).Text
            If (InStr(1, cellText, strSearch)) Then
                .Range(strSearchColName & currentRow).EntireRow.Delete
            Else
                currentRow = currentRow - 1
            End If
        Loop

    End With

End Sub