Удаление определеных строк

[SAS888]

Попробуйте предлагаемый ниже вариант, который должен работать значительно быстрее (65000 строк за единицы секунд).

Sub Main()
    Dim i As Long, j As Long, r As Long, c As Long, k As Long, a(), b()
    Application.ScreenUpdating = False
    r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    c = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
    a = Range([A3], Cells(r, c)).Value: ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    k = 1
    For i = 1 To UBound(a, 1)
        If i Mod 5 = 0 Then
            For j = 1 To UBound(a, 2)
                b(k, j) = a(i, j)
            Next
            k = k + 1
        End If
    Next
    Range([A3], Cells(r, c)).ClearContents: Range([A3], Cells(UBound(b, 1), UBound(b, 2))).Value = b
End Sub

[Vik-00]

Оно может и работает но что то не так, я не понял если можно поясни пошагово, заранее спасибо.
Действительно быстро но где то ошибка. не те строки удаляет.

Еше раз поясню задачу, возможно не правильно сказал (не точно).
Есть таблица, которая содержит более 52000 строк, мне надо удалить лишние диапазоны строк. Првая которая остаеться номер 2, потом 8. то есть каждая шестая, удалять надо 3-7, потом 4-8 и т.д. до конца списка.

[SAS888]

А в Вашем первом посте написано:

строки должны удаляться так 3-6, затем 4-7, 5-8 и так далее до тех пор пока не кончаться значения в столбце A.

Поэтому все не так. Если нужно удалять каждую шестую, то строку кода

If i Mod 5 = 0 Then

замените на

If i Mod 6 = 0 Then

Макрос работает так:
Определяем последнюю строку и последний столбец использованного диапазона листа и все данные заносим в двумерный (строка Х столбец) массив "a". Затем создаем пустой массив "b" той же размерности. Организуем цикл по строкам массива, и как только строка становится кратной 6, то заносим все элементы столбцов в первую строку массива "b" (вторая размерность во внутреннем цикле). Это сделано для того, чтобы ячейки (строки) листа вообще не трогать, т.к. с памятью работать существенно быстрее. По окончании цикла, очищаем лист со строки 3 до конца и вставляем в ячейки данные из полученного массива "b".

[Vik-00]

Да спасибо, все работает и очень быстро буквально 2-3 секунды. Надо изучить как работают эти двухмерные массивы и оптимизировать весь код.