Здравствуйте уважаемые друзья. Помогите пожалуйста решить вопрос с переносом данных со всех листов в примере в один. Нашел метод с макросом, но он отрабатывает с ошибкой почему-то.
Здравствуйте уважаемые друзья. Помогите пожалуйста решить вопрос с переносом данных со всех листов в примере в один. Нашел метод с макросом, но он отрабатывает с ошибкой почему-то.Ефгений
пример Ссылка удалена. Нарушение Правил форума [moder]Это не пример. Пример - это два-три листа с сохраненной структурой без лишних украшательств, который прикрепляется к сообщению[/moder]
пример Ссылка удалена. Нарушение Правил форума [moder]Это не пример. Пример - это два-три листа с сохраненной структурой без лишних украшательств, который прикрепляется к сообщению[/moder]Ефгений
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.]макрос не мой
Ефгений, совсем простой вариант [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
[offtop]ASWP, что-то такое до боли знакомое - и название макроса, и обозначения переменных, и стиль написания ... Где-то я все это видел :D[/offtop]
[offtop]ASWP, что-то такое до боли знакомое - и название макроса, и обозначения переменных, и стиль написания ... Где-то я все это видел :D[/offtop]_Boroda_
Ефгений, а где сарказм-то? Не было такого Мы вообще все тут белопушистомимимичные ASWP пишет, что макрос не его, а я пишу, что очень похоже, что этот макрос я где-то когда-то писал. Вряд ли, конечно, 10 лет назад, но не знаю, искать лень[/offtop]
Ефгений, а где сарказм-то? Не было такого Мы вообще все тут белопушистомимимичные ASWP пишет, что макрос не его, а я пишу, что очень похоже, что этот макрос я где-то когда-то писал. Вряд ли, конечно, 10 лет назад, но не знаю, искать лень[/offtop]_Boroda_