Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос: Удаление большого кол-ва строк (без критериев) (Макросы/Sub)
Макрос: Удаление большого кол-ва строк (без критериев)
Endrus1 Дата: Суббота, 07.09.2019, 18:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

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

Спасибо!

Автор - Endrus1
Дата добавления - 07.09.2019 в 18:49
RAN Дата: Суббота, 07.09.2019, 20:13 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

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


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

Автор - RAN
Дата добавления - 07.09.2019 в 20:13
boa Дата: Воскресенье, 08.09.2019, 11:48 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 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,
Попробуйте так:
[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]

Автор - boa
Дата добавления - 08.09.2019 в 11:48
Endrus1 Дата: Понедельник, 09.09.2019, 16:10 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - Endrus1
Дата добавления - 09.09.2019 в 16:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос: Удаление большого кол-ва строк (без критериев) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!