Здравствуйте уважаемые. И так интрига в названии темы удалась, раз вы здесь. Мне кажется решение моего вопроса банальное. Но мой мозг отказывается выдавать решения ибо они закончились. Появилась задача удалить пустые строки из таблицы, нашел следующее решение. http://www.excelworld.ru/forum/3-48-1 Автору спасибо большое!!! Но вот следующий вызов, поверг меня в шок. Есть книга. 1к листов. в книге таблица на 100к строк. Если встать на последнюю не пустую строку и нажать ctrl+shift+стрелка вниз. То мы улетаем на овер миллион строк. Понятно, что удалив их мы уменьшаем размер файла. Но вот засада листов то 1000 штук. И каждое действие делается очень долго :) Так вот вопрос, есть ли макрос удаляющий пустые строки на всех листах книги? Или же как сделать перечисление листов книги, для применения макроса DeleteEmptyRows на каждом листе. Заранее благодарен.
Здравствуйте уважаемые. И так интрига в названии темы удалась, раз вы здесь. Мне кажется решение моего вопроса банальное. Но мой мозг отказывается выдавать решения ибо они закончились. Появилась задача удалить пустые строки из таблицы, нашел следующее решение. http://www.excelworld.ru/forum/3-48-1 Автору спасибо большое!!! Но вот следующий вызов, поверг меня в шок. Есть книга. 1к листов. в книге таблица на 100к строк. Если встать на последнюю не пустую строку и нажать ctrl+shift+стрелка вниз. То мы улетаем на овер миллион строк. Понятно, что удалив их мы уменьшаем размер файла. Но вот засада листов то 1000 штук. И каждое действие делается очень долго :) Так вот вопрос, есть ли макрос удаляющий пустые строки на всех листах книги? Или же как сделать перечисление листов книги, для применения макроса DeleteEmptyRows на каждом листе. Заранее благодарен.Asshaker
Asshaker, В вашем случае, думаю, будет разумнее делать не удаление строк, а их сортировку. Правда, это если Вам потом удастся получить нужный вам порядок строк...(или порядок не принципиален))
Asshaker, В вашем случае, думаю, будет разумнее делать не удаление строк, а их сортировку. Правда, это если Вам потом удастся получить нужный вам порядок строк...(или порядок не принципиален))Roman777
Asshaker, В вашем случае, думаю, будет разумнее делать не удаление строк, а их сортировку. Правда, это если Вам потом удастся получить нужный вам порядок строк...(или порядок не принципиален))
В моем случае, строки ниже таблицы заполнены нулями или еще чем то. Книги весят по 500 mb. После действий "встать на последнюю не пустую строку и нажать ctrl+shift+стрелка вниз. пкм уладить" книги уменьшаются на 10-20 mb. Одну из книг я ручками лопатил, с 500mb уменьшилась до 700kb. Но есть книги и по 2 и по 5 гигов. Данных в них не много, но они почему то раздуты. Вот для комфортной работы приходится "чистить" М.б. есть иное решение проблемы? Подскажите, пожалуйста!
Asshaker, В вашем случае, думаю, будет разумнее делать не удаление строк, а их сортировку. Правда, это если Вам потом удастся получить нужный вам порядок строк...(или порядок не принципиален))
В моем случае, строки ниже таблицы заполнены нулями или еще чем то. Книги весят по 500 mb. После действий "встать на последнюю не пустую строку и нажать ctrl+shift+стрелка вниз. пкм уладить" книги уменьшаются на 10-20 mb. Одну из книг я ручками лопатил, с 500mb уменьшилась до 700kb. Но есть книги и по 2 и по 5 гигов. Данных в них не много, но они почему то раздуты. Вот для комфортной работы приходится "чистить" М.б. есть иное решение проблемы? Подскажите, пожалуйста!Asshaker
цитата удалена Не помогло. А вот макрос из этой темы http://www.excelworld.ru/forum/3-57-1 справился на ура! 96mb превратились 127kb [moder]Не надо цитировать пост целиком. Это нарушение Правил форума[/moder] Извините. Учту.
З.Ы. Макрос скопировал таблицу на каждый лист поиски решения продолжаются!
цитата удалена Не помогло. А вот макрос из этой темы http://www.excelworld.ru/forum/3-57-1 справился на ура! 96mb превратились 127kb [moder]Не надо цитировать пост целиком. Это нарушение Правил форума[/moder] Извините. Учту.
З.Ы. Макрос скопировал таблицу на каждый лист поиски решения продолжаются!Asshaker
Сообщение отредактировал Asshaker - Понедельник, 30.11.2015, 09:55
не знаю, рабочий ли был макрос nilem, но часто, из-за "ThisWorkbook" происходят ошибки, когда кидаете макрос в личную книгу макросов.. потому что он определяет ThisWorkbook как Personal.xlsb. Поэтому я бы использовал всё-таки "ActiveWorkbook" вместо "ThisWorkbook": [vba]
Код
Sub ttt() Dim wsh As Worksheet For Each wsh In ActiveWorkbook.sheets wsh.Activate ActiveSheet.UsedRange Next wsh End Sub
[/vba]
не знаю, рабочий ли был макрос nilem, но часто, из-за "ThisWorkbook" происходят ошибки, когда кидаете макрос в личную книгу макросов.. потому что он определяет ThisWorkbook как Personal.xlsb. Поэтому я бы использовал всё-таки "ActiveWorkbook" вместо "ThisWorkbook": [vba]
Код
Sub ttt() Dim wsh As Worksheet For Each wsh In ActiveWorkbook.sheets wsh.Activate ActiveSheet.UsedRange Next wsh End Sub