Макрос: Удаление большого кол-ва строк (без критериев)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос: Удаление большого кол-ва строк (без критериев) (Макросы/Sub)

Endrus1

Дата: Суббота, 07.09.2019, 18:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день, уважаемый знатоки!

Помогите, пожалуйста, как с помощью макроса удалить все строки в диапазоне 4:538461 листа "Данные"

Вот просто все подряд строки, без критериев. Вручную не получается выполнить удаление - эксель ругается на недостаток ресурсов и падает.

Спасибо!

Ответить

RAN

Дата: Суббота, 07.09.2019, 20:13 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Т.е. вы предполагаете, что макрос быстренько куда-то метнется за ресурсами? И все будет в шоколаде? Хватит и вам, и Excel?

Быть или не быть, вот в чем загвоздка!

Ответить

boa

Дата: Воскресенье, 08.09.2019, 11:48 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

Endrus1,
Попробуйте так:
[vba]

Код

Sub del_rows()
    Dim i&
    With Application: .ScreenUpdating = False: .EnableEvents = False
    For i = 538461 To 4 Step -1
        Rows(i).Delete
    Next
    .ScreenUpdating = True: .EnableEvents = True: End With
End Sub

[/vba]

Ответить

Endrus1

Дата: Понедельник, 09.09.2019, 16:10 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата boa, 08.09.2019 в 11:48, в сообщении № 3 ()

Endrus1,
Попробуйте так:

Спасибо большое! Поставил с утра выполняться, через 5 часов - все еще висит) Ну, крайней мере, эксель не упал. Так что сохраняю надежду!

Ответить

Макрос: Удаление большого кол-ва строк (без критериев) (Макросы/Sub)

Страница 1 из 1
1