Помогите оптимизировать удаление строк.

[AChrist]

Добры. Появилась у меня необходимость удалить ненужные строки из массива которые не удовлетворяют условию. Автофильтром бы сделал, но не дает такие объемы копировать/удалять. Но потом разобрался путем сортировки. Мне стало чисто для себя интересно, можно ли сделать не таким "топорным" методом? Ибо макрос наверно на ночь надо было бы оставить
Всего строк было почти миллион. Пользуюсь 2007 офисом, так что ограничений не было.

Sub Макрос1()

 Dim i As Integer
 i = 1
 While i < 999999
 Application.ScreenUpdating = False
 If Cells(i, 3).Value <> 3 And Cells(i, 1).Value <> 22 Then
 Rows(i).Delete Shift:=xlUp
    Else
     i = i + 1
    End If
    Wend
End Sub

[SAS888]

На сколько я понял, требуется оставить только те строки, в которых в 1-м столбце значение = 22, а в 3-м = 3. Остальные удалить. Так? Если так, то можно обойтись вообще без циклов. Попробуйте такой вариант:

Sub DelRows()
    Dim i As Long: Application.ScreenUpdating = False
    i = Cells.SpecialCells(xlCellTypeLastCell).Row + 1: Cells(i, 1) = 22
    [A:A].ColumnDifferences(Cells(i, 1)).EntireRow.Delete
    i = Cells.SpecialCells(xlCellTypeLastCell).Row + 1: Cells(i, 3) = 3
    [C:C].ColumnDifferences(Cells(i, 3)).EntireRow.Delete
    Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
End Sub

[AChrist]

Сообщение от SAS888

требуется оставить только те строки, в которых в 1-м столбце значение = 22, а в 3-м = 3. Остальные удалить. Так?

Именно. Попробовал - работает. Но только если строк не больше 65к. Когда я оставил как было 900к+ - удалились все строки.