Удалить содержимое столбца на основе префикса

Question

У меня есть макрос, который в настоящее время удаляет пустые строки в столбце A, а затем несколько ненужных столбцов E и G. Отчет изменился на меня, и теперь в столбце EI необходимо удалить все местоположения, которые начните с «MX», и их слишком много, чтобы выбирать один за другим. Есть ли что-нибудь, что я могу добавить в этот текущий макрос, чтобы удалить все местоположения, начинающиеся с «MX»? Есть много других префиксов, таких как «США», «CA», но один мне нужно удалить это «MX»

Вот текущий код:

Sub Delete() 

    Dim cRow As Long 
     cRow = 3 
    Do While (IsEmpty(Cells(cRow, 1))) 
     cRow = cRow + 1 
    Loop 
    cRow = cRow - 1 

    'Rows("3:" & cRow).Select 
    Rows("3:" & cRow).Delete Shift:=xlUp 
    Columns("E:E").Select 
    Selection.Delete Shift:=xlToLeft 
    Columns("G:G").Select 
    Selection.Delete Shift:=xlToLeft 

End Sub 

Answer 1

Вы могли бы сделать что-то вроде этого,

Sub Delete() 

    Dim cRow As Long 
     cRow = 3 
    Do While (IsEmpty(Cells(cRow, 1))) 
     cRow = cRow + 1 
    Loop 
    cRow = cRow - 1 
    if range("E" & cRow).value like "MX*" then 'OR left(range("E" & cRow).value, 2) = "MX" 
     Rows("3:" & cRow).Delete Shift:=xlUp 
     Columns("E:E").Select 
     Selection.Delete Shift:=xlToLeft 
    end if 

    Columns("G:G").Select 
    Selection.Delete Shift:=xlToLeft 

End Sub 

Не уверен, что вам все равно понадобится G.