Страницы: 1
RSS
Объединение нескольких листов в один.
 
В файле более 50 листов, в каждом листе шапка, таблица и есть объединенные ячейки.
Мне нужно объединить все листы в один. Искала и здесь, и вообще в интернете ответы и пока что ничего не подошло.
П.с. Плекс не подходит. Макросы пишу на дилетантском уровне, так что прошу отвечать максимально развернуто.
 
В "Приемы" заглядывали?
 
Юрий М, заглядывала, там есть ответ по теме "объединить листы из разных книг", а у меня из одной книги.
 
Сегодня, однако -
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=49273 ... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Z, Z, поиском занималась вчера :)
Не подскажите, как сделать так что бы этот макрос http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=35179&MID=304770#message304770
работал с конкретной книгой?
Т.е. у меня есть книга с макросами, в ней есть разные данные ( в том числе будет и этот новый макрос).
А есть книга с данными, в которой как раз нужно собрать данные.
Как сделать так, чтобы макрос находился в одной книге, а данные собирал только из другой?
 
Как собрать данные с нескольких листов или книг?
Выбираете книгу и с неё будут собраны данные.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
The_Prist, уже пробовала, у меня не срабатывает :(
 
интересно...Как ни странно - но только у Вас не срабатывает. Скорее всего что-то не так делаете, вот и не срабатывает.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Странно, однако -
http://www.planetaexcel.ru/forum/?PAGE_NAME=message&FID=1&TID=48519&MID=402391#message402391
Изменено: Z - 27.06.2013 16:58:21
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Пора уже показать свой файл. Если данные секретные - можете мне на почту сбросить. Почта в профиле.
 
Помогите, пожалуйста, решить ту же задачу - объединить листы (или файлы, что еще лучше) в один. Формат данных на всех листах одинаковый. Листов больше 50.
Тему прочитал, готовые скрипты не помогли, подправить - знаний в ВБ нет.

хм. этот скрипт https://www.excel-vba.ru/chto-umeet-excel/kak-sobrat-dannye-s-neskolkix-listov-ili-knig/
при сборке из файлов, а не из листов сработал.
спасибо, вопрос решен.
Изменено: lavAzza - 07.06.2018 12:50:23
 
как вариант под Ваш пример
Код
Sub sbor()
Dim sh As Worksheet
Worksheets.Add.Name = "Итог"
lr = 1
For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> "Итог" Then
    sh.UsedRange.Copy Range("A" & lr)
    lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
    End If
Next
End Sub
Страницы: 1
Наверх