Удаление строк с определенным номером в текстовой строке в ячейке

Question

У меня есть список, содержащий около 500 записей данных, а некоторые из них имеют разный текст с тем же номером в ячейке. Мне нужно найти все эти строки с «00000» в нем и удалить их. Мне нужно рассчитать время, когда «test2» startet не работает (18:23) и нужно знать, сколько времени потребовалось, чтобы он работал снова (18:30), а сообщение error00000 испортило мои формулы, поэтому мне нужно удалить все строки с ошибкой в ​​нем. ошибка messege никогда не бывает прежней, но «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