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

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

Я не знаю, как найти его с кодом VBA, потому что я могу только найти числа в ячейках. Записи данных могут меняться в неделю, поэтому они должны быть с VBA. У меня есть код, но его работа в Интернете работает, когда номер один в ячейке, а не в таком Error message 00000 как 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 

Попробуйте выполнить приведенный ниже код, чтобы удалить отфильтрованные строки. Прежде чем запускать код, убедитесь, что вы вводите значения для переменных 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 
  • Где я ошибаюсь, чтобы комбинировать AND () и OR () в формулах Excel?
  • как идентифицировать сгруппированный столбец и скрытый столбец отдельно?
  • Excel VBA - Как выбрать несколько целых столбцов из определенных диапазонов?
  • Как найти источник проверки данных от excel 2010
  • VBA: вставить диаграмму с другим именем
  • Подсчитайте количество раз, когда происходит дата и выведите график из него
  • свойства веб-запроса excel из раскрывающегося списка
  • Более короткий способ обращения к ячейкам несколько раз в Excel VBA
  • Как суммировать результаты двух операторов if в одной ячейке?
  • Выберите столбец и примените «Общий» -формат ко всем ячейкам + поместите макрос на кнопку
  • Excel. Как подсчитать количество строк в диапазоне (т. Е. Различные столбцы), которые содержат определенную строку?
  • Давайте будем гением компьютера.