Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как в Excel данные нескольких листов перенести в один - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как в Excel данные нескольких листов перенести в один (Формулы/Formulas)
Как в Excel данные нескольких листов перенести в один
Ефгений Дата: Вторник, 09.10.2018, 18:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
Здравствуйте уважаемые друзья. Помогите пожалуйста решить вопрос с переносом данных со всех листов в примере в один. Нашел метод с макросом, но он отрабатывает с ошибкой почему-то.
 
Ответить
СообщениеЗдравствуйте уважаемые друзья. Помогите пожалуйста решить вопрос с переносом данных со всех листов в примере в один. Нашел метод с макросом, но он отрабатывает с ошибкой почему-то.

Автор - Ефгений
Дата добавления - 09.10.2018 в 18:42
ASWP Дата: Вторник, 09.10.2018, 18:51 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
Ефгений, Добрый день, где файл с примером?


я знаю что ничего не знаю, но другие не знают и этого
 
Ответить
СообщениеЕфгений, Добрый день, где файл с примером?

Автор - ASWP
Дата добавления - 09.10.2018 в 18:51
Ефгений Дата: Вторник, 09.10.2018, 19:24 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
пример Ссылка удалена. Нарушение Правил форума
[moder]Это не пример. Пример - это два-три листа с сохраненной структурой без лишних украшательств, который прикрепляется к сообщению[/moder]
 
Ответить
Сообщениепример Ссылка удалена. Нарушение Правил форума
[moder]Это не пример. Пример - это два-три листа с сохраненной структурой без лишних украшательств, который прикрепляется к сообщению[/moder]

Автор - Ефгений
Дата добавления - 09.10.2018 в 19:24
Ефгений Дата: Вторник, 09.10.2018, 21:55 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
Не получается загрузить, а ссылку удаляет модератор. Не понимаю зачем
 
Ответить
СообщениеНе получается загрузить, а ссылку удаляет модератор. Не понимаю зачем

Автор - Ефгений
Дата добавления - 09.10.2018 в 21:55
Ефгений Дата: Вторник, 09.10.2018, 21:56 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
пример
К сообщению приложен файл: 9218139.xlsx(16.5 Kb)
 
Ответить
Сообщениепример

Автор - Ефгений
Дата добавления - 09.10.2018 в 21:56
ASWP Дата: Вторник, 09.10.2018, 22:12 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
Ефгений, совсем простой вариант
[vba]
Код
Sub tt()
s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
    r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
    Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
    n_ = n_ + r_
Next
End Sub
[/vba]
[p.s.]макрос не мой :D
К сообщению приложен файл: 9218139.xlsb(16.9 Kb)


я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Вторник, 09.10.2018, 22:15
 
Ответить
СообщениеЕфгений, совсем простой вариант
[vba]
Код
Sub tt()
s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
    r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
    Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
    n_ = n_ + r_
Next
End Sub
[/vba]
[p.s.]макрос не мой :D

Автор - ASWP
Дата добавления - 09.10.2018 в 22:12
Ефгений Дата: Вторник, 09.10.2018, 22:51 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
Это же макрос? Почему - то не срабатывает
 
Ответить
СообщениеЭто же макрос? Почему - то не срабатывает

Автор - Ефгений
Дата добавления - 09.10.2018 в 22:51
Ефгений Дата: Вторник, 09.10.2018, 22:55 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
Все, разобрался. Спасибо тебе большое приятель, очень мне помог, очень.
 
Ответить
СообщениеВсе, разобрался. Спасибо тебе большое приятель, очень мне помог, очень.

Автор - Ефгений
Дата добавления - 09.10.2018 в 22:55
_Boroda_ Дата: Вторник, 09.10.2018, 23:40 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13698
Репутация: 5587 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[offtop]ASWP, что-то такое до боли знакомое - и название макроса, и обозначения переменных, и стиль написания ...
Где-то я все это видел :D[/offtop]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[offtop]ASWP, что-то такое до боли знакомое - и название макроса, и обозначения переменных, и стиль написания ...
Где-то я все это видел :D[/offtop]

Автор - _Boroda_
Дата добавления - 09.10.2018 в 23:40
ASWP Дата: Среда, 10.10.2018, 00:33 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
[offtop] _Boroda_, 10 лет прошло, а вопросы те же, и макросы тоже.... :D [/offtop]


я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Среда, 10.10.2018, 00:33
 
Ответить
Сообщение[offtop] _Boroda_, 10 лет прошло, а вопросы те же, и макросы тоже.... :D [/offtop]

Автор - ASWP
Дата добавления - 10.10.2018 в 00:33
Ефгений Дата: Среда, 10.10.2018, 02:29 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010
Эхххх глуп я глуп, БОГИ мои. И спасибо Вам за сарказм.
 
Ответить
СообщениеЭхххх глуп я глуп, БОГИ мои. И спасибо Вам за сарказм.

Автор - Ефгений
Дата добавления - 10.10.2018 в 02:29
_Boroda_ Дата: Среда, 10.10.2018, 09:48 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13698
Репутация: 5587 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[offtop]
Цитата Ефгений, 10.10.2018 в 02:29, в сообщении № 11 ()
спасибо Вам за сарказм

Ефгений, а где сарказм-то? Не было такого :D Мы вообще все тут белопушистомимимичные
ASWP пишет, что макрос не его, а я пишу, что очень похоже, что этот макрос я где-то когда-то писал. Вряд ли, конечно, 10 лет назад, но не знаю, искать лень[/offtop]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[offtop]
Цитата Ефгений, 10.10.2018 в 02:29, в сообщении № 11 ()
спасибо Вам за сарказм

Ефгений, а где сарказм-то? Не было такого :D Мы вообще все тут белопушистомимимичные
ASWP пишет, что макрос не его, а я пишу, что очень похоже, что этот макрос я где-то когда-то писал. Вряд ли, конечно, 10 лет назад, но не знаю, искать лень[/offtop]

Автор - _Boroda_
Дата добавления - 10.10.2018 в 09:48
ASWP Дата: Среда, 10.10.2018, 10:55 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
[offtop] Ефгений, Не переживайте, я про вас речь конкретно и не вел, я писал в общем, мне просто песня вспомнилась, "Осенняя роса"....[/offtop]


я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Среда, 10.10.2018, 10:57
 
Ответить
Сообщение[offtop] Ефгений, Не переживайте, я про вас речь конкретно и не вел, я писал в общем, мне просто песня вспомнилась, "Осенняя роса"....[/offtop]

Автор - ASWP
Дата добавления - 10.10.2018 в 10:55
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как в Excel данные нескольких листов перенести в один (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!