Как в Excel данные нескольких листов перенести в один

Дата: Вторник, 09.10.2018, 18:42 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

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

Дата: Вторник, 09.10.2018, 18:51 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

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

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

Дата: Вторник, 09.10.2018, 19:24 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

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

Дата: Вторник, 09.10.2018, 21:55 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

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

Дата: Вторник, 09.10.2018, 21:56 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

пример

К сообщению приложен файл: 9218139.xlsx (16.5 Kb)

Дата: Вторник, 09.10.2018, 22:12 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 24 ±

Замечаний: 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.]макрос не мой

К сообщению приложен файл: 9218139.xlsb (16.9 Kb)

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

Сообщение отредактировал ASWP - Вторник, 09.10.2018, 22:15

Дата: Вторник, 09.10.2018, 22:51 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

Это же макрос? Почему - то не срабатывает

Дата: Вторник, 09.10.2018, 22:55 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

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

_Boroda_

Дата: Вторник, 09.10.2018, 23:40 | Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Среда, 10.10.2018, 00:33 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

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

[/offtop]

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

Сообщение отредактировал ASWP - Среда, 10.10.2018, 00:33

Дата: Среда, 10.10.2018, 02:29 | Сообщение № 11

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 0 ±

Замечаний: 0% ±

2010

Эхххх глуп я глуп, БОГИ мои. И спасибо Вам за сарказм.

_Boroda_

Дата: Среда, 10.10.2018, 09:48 | Сообщение № 12

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

[offtop]

Цитата Ефгений, 10.10.2018 в 02:29, в сообщении № 11 ()

спасибо Вам за сарказм

Ефгений, а где сарказм-то? Не было такого

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

Дата: Среда, 10.10.2018, 10:55 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

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

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

Сообщение отредактировал ASWP - Среда, 10.10.2018, 10:57