Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Массовое копирование строк с условием - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Массовое копирование строк с условием
postal398 Дата: Суббота, 09.05.2015, 10:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день, всех с праздником!
Я прошу прощения если выбрал неправильный раздел, не владею информацией.

Пример во вложении.
Имеются 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
К сообщению приложен файл: 2647758.xlsx (10.8 Kb)
 
Ответить
СообщениеДобрый день, всех с праздником!
Я прошу прощения если выбрал неправильный раздел, не владею информацией.

Пример во вложении.
Имеются 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

Автор - postal398
Дата добавления - 09.05.2015 в 10:45
Manyasha Дата: Суббота, 09.05.2015, 16:05 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
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
[/vba]
К сообщению приложен файл: 123.xlsm (15.3 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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
[/vba]

Автор - Manyasha
Дата добавления - 09.05.2015 в 16:05
postal398 Дата: Суббота, 09.05.2015, 17:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Простите, а куда это вставлять?
 
Ответить
СообщениеManyasha, Простите, а куда это вставлять?

Автор - postal398
Дата добавления - 09.05.2015 в 17:45
Manyasha Дата: Суббота, 09.05.2015, 18:09 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
postal398, в обычный модуль. Вкладка разработчик - Visual Basic - создаете модуль и копируете туда код, или просто переносите мышкой с проекта VBA одной книги в проект другой.
Еще, редактор VBA можно открыть клавишами alt+f11.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеpostal398, в обычный модуль. Вкладка разработчик - Visual Basic - создаете модуль и копируете туда код, или просто переносите мышкой с проекта VBA одной книги в проект другой.
Еще, редактор VBA можно открыть клавишами alt+f11.

Автор - Manyasha
Дата добавления - 09.05.2015 в 18:09
postal398 Дата: Суббота, 09.05.2015, 19:06 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Это невероятно)) Честно говоря, полагал что такое если и возможно, то над этим должна будет потрудиться компания в течении месяца, а тут так быстро и просто вы подсказали. Спасибо большое!
 
Ответить
СообщениеManyasha, Это невероятно)) Честно говоря, полагал что такое если и возможно, то над этим должна будет потрудиться компания в течении месяца, а тут так быстро и просто вы подсказали. Спасибо большое!

Автор - postal398
Дата добавления - 09.05.2015 в 19:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!