Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Перенос ячеек на новые страницы
Диалог специалистов АВОК > ФАЙЛОТЕКА СПЕЦИАЛИСТА > Программы, расчеты
shinsa13
Ребят, подскажите пожалуйста, Есть таблица в эксель с данными, на каждую строку нужно создать новую страницу (с одним и тем же текстом) и вставить данные ячейки в текст, как это можно сделать?

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
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2025 IPS, Inc.