Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2011, 20:38   #1
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию Собрать данные с нескольких листов и книг

Здравствуйте.
Мне нужно собрать огромное количество данных с нескольких десятков листов и книг. Пробовала пользоваться макросами как указано на http://www.excel-vba.ru/chto-umeet-e...stov-ili-knig/. Проблема в том, что я не могу указать какие именно строки собирать, так как в каждом листе разное количество данных (в некоторых вообще нет - они мне не нужны, а вот в некоторых от одного до ста). Поэтому после собрания всех данных остаются между данными пустые строки.
Вопрос в следующем:
Листы, в которых нет нужной мне информации не собирать (т.е. где данные 0). После собрания данных в один лист, нужно "Название" со 2-го столбца перенести на первый столбец, и все не нужные (пустые) строки между данными убрать. Прикрепляю Пример. Пожалуйста помогите.
Вложения
Тип файла: rar Пример.rar (19.6 Кб, 54 просмотров)

Последний раз редактировалось dana11; 12.08.2011 в 21:51.
dana11 вне форума Ответить с цитированием
Старый 12.08.2011, 20:52   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

все сделал, как просили... в прикрепленном Вами примере)))
(архивировать надо файлы, чтобы прикрепить)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.08.2011, 21:06   #3
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию

Ааа, вот почему не получалось))) Щас прикреплю)
dana11 вне форума Ответить с цитированием
Старый 12.08.2011, 21:54   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

см.вложение
Вложения
Тип файла: rar Книга690.rar (9.8 Кб, 173 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.08.2011, 22:35   #5
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию

Макрос не запускается. Показывает (см. вложение)
ЗЫ У меня на работе excel 2007
Изображения
Тип файла: jpg 1.jpg (306.5 Кб, 213 просмотров)
dana11 вне форума Ответить с цитированием
Старый 12.08.2011, 23:27   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

макросы включите в экселе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.08.2011, 23:30   #7
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
макросы включите в экселе
Как? Можно поподробней.
dana11 вне форума Ответить с цитированием
Старый 13.08.2011, 00:02   #8
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

большая круглая кнопка
параметры эксель
центр управления безопасностью
параметры центра управления безопасностью
параметры макросов
поставте последнюю позицию: включить все макросы
ок
ок
откройте присланный мною файл, жмите кнопку.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 13.08.2011, 11:58   #9
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию

Все сделала как вы сказали. Тепер выходит сообщение:
Run-time error '1004':
Method 'Add' of object 'Sheets' failed

Нажимаю Debug выделеяется желтым цветом Sheets.Add after:=Sheets(Sheets.Count)

Последний раз редактировалось dana11; 13.08.2011 в 13:01.
dana11 вне форума Ответить с цитированием
Старый 13.08.2011, 12:00   #10
dana11
 
Регистрация: 12.08.2011
Сообщений: 7
По умолчанию

Все сделала как вы сказали. Тепер выходит сообщение:
Run-time error '1004':
Method 'Add' of object 'Sheets' failed

Нажимаю Debug выделеяется желтым цветом Sheets.Add after:=Sheets(Sheets.Count)
dana11 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в один лист можно собрать данные с других листов Lis000iq Microsoft Office Excel 12 24.08.2015 12:51
открытие нескольких книг одним макросом и закрытие книг другим макросом kursant95 Microsoft Office Excel 6 27.01.2011 16:54
Как собрать данные из листов asas2010 Microsoft Office Excel 3 30.03.2010 08:59
Как собрать данные из множества книг и сравнить их? artem5500 Microsoft Office Excel 3 10.07.2009 18:54
копирование листов из закрытых книг mephist Microsoft Office Excel 4 10.07.2009 17:18