Объединение данных с нескольких листов в один

[Clockgen]

Подскажите как можно объединить данные с 1600 листов в одной книге на новом листе этой же книги,без потери данных?очень нужно.

[motorway]

Программно обращаетесь к ячейкам и переносите данные:

Worksheets(i).Cells(j,k).Value=Worksheets(l).Cells(m,n).Value

- и все это в цикле
В целом так.

[doober]

А время сколько понадобится таким методом на 1600 листов.
Что значит без потери данных.
Образец приложите на пару листов строк на 20 с пояснениями результата

Зы.Название темы понравилось Объединение данных с нескольких листов в один

[motorway]

Да, действительно, может много. Это если надо как-то изощренно копировать. В целом есть более быстрые способы.

[Clockgen]

В этом файле есть макрос называется sborka-он собирает все данные с листов,все нормально,только не хочет собирать поле адреса,т.е. 1 только адрес с копировался,а остальных нет,а нужно чтобы без потери информации копировались данные. Еще нужно обратить внимание на то что после выполнения макроса, там где название фирмы может быть просто "Общество с ограниченной" ,а должно быть например "Общество с ограниченной ответственностью "АСКА",но это мало важно,важнее сейчас адрес.В этом и заключается - без потери информации.

[doober]

Такой результат вы должны получить.
Во вложении только результат работы парсера XML файла,который был во вложении.Время работы 6 секунд,намного меньше,чем бы с Excel файлом.Мне прсто интересно -чьи ручки создали такой файл
Макроса я во вложении не обнаружил.

[Lays]

Отличная тема) у меня тот же вопрос...макрос, который открывает кучу файлов из одной папки уже худо бедно написан..Загвоздка в том, что каждый файл состоит из двух листов, и в итоге при открытии эти два листа соединяются в один...как от этого избавиться?!

Еще хотела спросить,из кучи открытых файлов мне нужно повыдергивать один конкретный столбец значений "Количество", именно этот столбец должен копироваться в итоговый файл..их будет порядка 40-50. Что-то я торможу с утра...
примерно так должно быть..

[Lays]

Прикрепила файлик...

[SAS888]

Lays
Вашу задачу можно решить и вовсе не открывая файлы-источники.
Посмотрите вложение. Откройте файл "итог_2" и запустите макрос "Main".
Надеюсь, что я правильно понял Вашу задачу.

P.S. На будущее: новый вопрос - новая тема. Это правило форума.

[EugeneS]

___________________