Удалить строку на основе частичного содержимого ячейки

Question

Я пытаюсь создать скрипт VBA, который будет проходить через столбец «A» в моей таблице и удалить любую строку, которая начинается с ячейки, содержащей слова «Div Code:» проблема в том, что ячейки содержат намного больше текста после «Div Code», и я не могу понять, как заставить функцию .replace работать с частичными. Вот что я до сих пор:

Sub FindDivCode() 


    With Intersect(Columns("A"), ActiveSheet.UsedRange) 
    .Replace "Div Code", "#N/A", xlPart 
    .Replace "Date", "#N/A", xlPart 
    .SpecialCells(xlConstants, xlErrors).EntireRow.Delete 
    End With 
End Sub 

Этот скрипт работает для «Дата» клетки, но не «Див Code» клетки. Любая помощь будет принята с благодарностью!

Paul

Answer 1

Вы можете перебрать ячеек столбца А и, после проверки, если ячейка Ax начинается с «Div Code», удалить всю строку:

For j = Range("A1").End(xlDown).Row To 1 Step -1 
    If InStr(Range("A" & j).Value,"Div Code") = 1 Then 
     Rows(j).Delete 
    End If 
Next j 

Answer 2

Это расширение до решения, данное Matteo. Кредит должен пойти к нему

Sub FindDivCode2() 
     For j = Range("A1").End(xlDown).Row To 1 Step -1 
      If InStr(Range("A" & j).Value,"Div Code") = 1 Or InStr(Range("A" & j).Value,"Date") = 1Then 
       Rows(j).Delete 
      End If 
     Next j 
    End Sub