Перенос ячеек на новые страницы, excel Опции

[shinsa13]

Ребят, подскажите пожалуйста, Есть таблица в эксель с данными, на каждую строку нужно создать новую страницу (с одним и тем же текстом) и вставить данные ячейки в текст, как это можно сделать?

Прикрепленные файлы

 _____1.xlsx ( 141,59 килобайт ) Кол-во скачиваний: 9

 

[shinsa13]

Ребят, подскажите пожалуйста, Есть таблица в эксель с данными, на каждую строку нужно создать новую страницу (с одним и тем же текстом) и вставить данные ячейки в текст, как это можно сделать?

Прикрепленные файлы

 _____1.xlsx ( 141,59 килобайт ) Кол-во скачиваний: 9

 

[v-david]

Сходите для начала сюда. Если не передумаете - тогда только макросом.

[Sfinx78]

Sub SFINX78()
' SFINX78

Sheets("27.01.2015").Select

Range("A3:N3").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
Range("A1").Select

Sheets("27.01.2015").Select

Range("A4:N4").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
Range("A1").Select

End Sub


макрос создаёт 2 страницы для 2-х строк из 1-й страницы
без шапки таблицы и без оформления

ежели кто сможет вместо простого Range("A4:N4").Select
придумать нечто с ЦИКЛОМ и с относительными ссылками

тогда макрос с помощью цикла сам всё сделает
другие макросы и разработки EXCEL на моём сайте http://kenokeno.ucoz.ru/load

Сообщение отредактировал Sfinx78 - 28.1.2015, 13:56