Удаление строк не соответствующих требуемому чередованию

[Randomi]

Здравствуй, в общем проблема такая: есть таблица, ее нужно откорректировать таким образом, чтобы строки чередовались по первому столбцу - "Вход-Выход", "Вход-Выход", "Вход-Выход", и т.д., а строки не удовлетворяющие этому условию, т.е. повторяющиеся проходы в одном направлении, были удалены. Пример прилагаю.

[Hugo121]

Sub tt()
    Dim i&
    For i = [a1].CurrentRegion.Rows.Count To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
    Next
End Sub

[Randomi]

Спасибо за ответ, но я чуть ошибся - нужно не просто чередование, а оставить только "Вход-Выход", которые следуют друг за другом. Исправленный пример прилагаю.

[Hugo121]

Нелогично.

[Randomi]

И, следовательно, не решаемо?

[Hugo121]

Решаемо. Но кажется сложнее, как-то иначе нужно делать... Некогда, и не хочу

[ikki_pf]

тупо в лоб

Sub Удаление()
    Dim i&
    For i = [a1].CurrentRegion.Rows.Count To 2 Step -1
        If Cells(i, 1) = "Выход" And Cells(i - 1, 1) <> "Вход" Or _
        Cells(i, 1) = "Вход" And Cells(i + 1, 1) <> "Выход" Then Rows(i).Delete
    Next
End Sub

[Randomi]

Спасибо всем откликнувшимся!