Добрый день, всех с праздником! Я прошу прощения если выбрал неправильный раздел, не владею информацией.
Пример во вложении. Имеются 11 строк с информацией в примере. В реальности их около трехсот, сократил для уменьшения громоздкости. Нужно что бы под каждой строкой появилось 7 копий. То есть что бы каждая строка повторила свое содержимое по 7 раз и поместила ниже себя, и получилось по 8 абсолютно одинаковых строк. Строки 16 и 17 содержат формулы на подсчет количества символов в полях 9 и 10, которые в пример к сожалению не скопировались. Их нельзя нарушить, иначе будет трудно работать.
Попробую еще изобразить в текстовом варианте что хочу видеть
Как есть: Строка с инфой 1 Строка с инфой 2 Строка с инфой 3 Строка и т.д. ... до 300 строк
Как надо получить: Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 3 Строка с инфой 3 и так далее по 8 строк вплоть до 300
Добрый день, всех с праздником! Я прошу прощения если выбрал неправильный раздел, не владею информацией.
Пример во вложении. Имеются 11 строк с информацией в примере. В реальности их около трехсот, сократил для уменьшения громоздкости. Нужно что бы под каждой строкой появилось 7 копий. То есть что бы каждая строка повторила свое содержимое по 7 раз и поместила ниже себя, и получилось по 8 абсолютно одинаковых строк. Строки 16 и 17 содержат формулы на подсчет количества символов в полях 9 и 10, которые в пример к сожалению не скопировались. Их нельзя нарушить, иначе будет трудно работать.
Попробую еще изобразить в текстовом варианте что хочу видеть
Как есть: Строка с инфой 1 Строка с инфой 2 Строка с инфой 3 Строка и т.д. ... до 300 строк
Как надо получить: Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 1 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 2 Строка с инфой 3 Строка с инфой 3 и так далее по 8 строк вплоть до 300postal398
Sub example() Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 1 Step -1 Rows(i & ":" & i + 6).Insert Shift:=xlDown Rows(i + 7).Copy Rows(i & ":" & i + 6) Next i Application.ScreenUpdating = True End Sub
[/vba]
postal398, здравствуйте. Пробуйте: [vba]
Код
Sub example() Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 1 Step -1 Rows(i & ":" & i + 6).Insert Shift:=xlDown Rows(i + 7).Copy Rows(i & ":" & i + 6) Next i Application.ScreenUpdating = True End Sub
postal398, в обычный модуль. Вкладка разработчик - Visual Basic - создаете модуль и копируете туда код, или просто переносите мышкой с проекта VBA одной книги в проект другой. Еще, редактор VBA можно открыть клавишами alt+f11.
postal398, в обычный модуль. Вкладка разработчик - Visual Basic - создаете модуль и копируете туда код, или просто переносите мышкой с проекта VBA одной книги в проект другой. Еще, редактор VBA можно открыть клавишами alt+f11.Manyasha
Manyasha, Это невероятно)) Честно говоря, полагал что такое если и возможно, то над этим должна будет потрудиться компания в течении месяца, а тут так быстро и просто вы подсказали. Спасибо большое!
Manyasha, Это невероятно)) Честно говоря, полагал что такое если и возможно, то над этим должна будет потрудиться компания в течении месяца, а тут так быстро и просто вы подсказали. Спасибо большое!postal398