Добрый день. Каким образом можно узнать, лист пустой или нет, путем перебора страниц в цикле? Т.е. берем 2 стр проверяем ее на пустоту, если не пустая, копируем из нее текст в первый лист, затем проверяем 3 стр, если не пустая, копируем из нее текст в 1 лист, ниже данных, взятых со 2стр. Если например попадается пустая стр, то выдается сообщение об этом.
Как проверить лист на пустоту.?
13.09.2018 09:12:15
|
|
|
|
13.09.2018 09:24:21
Изменено: |
|||
|
|
13.09.2018 12:20:34
Благодарю вас за ответы, вроде все получилось. Возник еще такой вопрос. Мне необходимо скопировать со всех листов текст, начиная со второго и вставить по порядку его на первый лист. со сдвигом вниз. Каким образом это сделать?
Worksheets(f).Range(FirstCell, LastCell).Copy Worksheets(1).Range("b:c") таким образом у меня производится копирование на данный момент. Копирование происходит в цикле. С начала цикла происходит копирование со второго листа и вставляется в первый. На втором шаге происходит копирование с 3его листа на первый, при этом вся инфа, скопированная с 2 листа затирается инфой с 3 листа. если после Worksheets(f).Range(lastCell, FirstCell).Copy Worksheets(1).Range("b:c") пишем shift:=xldown, то обработчик выдает ошибку. |
|
|
|
13.09.2018 12:36:08
примерно так
|
|||
|
|
13.09.2018 13:13:35
|
|||
|
|
13.09.2018 14:10:09
у Алексея опечатка. Не должно быть двоеточия:
Изменено:
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
|
|||
|
|
13.09.2018 14:12:15
|
|||
|
|
13.09.2018 15:15:30
Скрипт начал копировать строки. Но дело в том, что копируется не только диапазон, заключенный в ячейки Range(FirstCell, LastCell), но и куча пустых строк. Т.е. на первой странице скопированный со второго листа текст начинается аж с 800 строки, потом еще куча пустых строк и вставлен диапазон с листа 3 Причем это как то работает через раз. Не могу понять в чем причина. НЕ могли бы вы подробней объяснить строку .Range("b" & .UsedRange.Row + .UsedRange.Rows.Count). Что она конкретно делает? И еще вопрос, почему в данном макросе было невозможно использовать метод paste или insert ?
Выкладываю весь файл с полным скриптом. Используется Макрос 6.
Изменено: |
|
|
|
14.09.2018 08:43:33
Подниму тему. Прошу помочь, если это возможно.
|
|
|
|
14.09.2018 09:40:48
Judgementday, Вы бы посмотрели, какой диапазон копируется. Поставьте точку останова на With Worksheets(1) и в окне Immediate
Гиперссылки надо сохранить или нужны только значения? |
|||||
|
|
14.09.2018 09:49:26
|
|||
|
|
14.09.2018 09:55:38
Поправил/добавил пару строк. Кривовато, но с данным файлом работает
|
|||||
|
|
14.09.2018 10:44:23
|
|||
|
|
14.09.2018 12:20:57
Judgementday, а какое отношение Ваш второй вопрос имеет к этой теме?
|
|
|
|
14.09.2018 12:46:59
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
||||
|
|
|||