Копирование строк в таблице в зависимости от числа в ячейке

Копирование строк в таблице в зависимости от числа в ячейке, Задача размножить строки в зависимости от числа в ячейке

Пользователь

Сообщений: 2 Регистрация: 17.02.2020

17.02.2020 01:29:39

Добрый день. Есть файл конкурса в котором более 1000 строк с участниками. Задача размножить строки в зависимости от числа в ячейке. Прошу помочь в данном вопросе не могу разобраться. Заранее спасибо знатоки. Файл прилагаю. И можно ли сделать так чтобы при нажатии на кнопку получить готовый размноженный файл а не копировать каждую строку в отдельности.

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

Пример.xlsx (10.04 КБ)
Безымянный.png (120.31 КБ)

Изменено: makaromax - 17.02.2020 01:36:50

makaromax Пользователь Сообщений: 2 Регистрация: 17.02.2020	#2 17.02.2020 01:42:15 Вот нашел примерно то, что нужно. Но в этом файле нужно выделять каждую строку, а это не совсем удобно их более 1000. Можно ли за раз размножить все строки? Прикрепленные файлы Книга2.xlsm (19.44 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

17.02.2020 09:00:19

makaromax, попробуйте так..делал на коленке...

Код

Sub Копирование()
 Dim i&
    Application.ScreenUpdating = False
    ilastrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = ilastrow To 5 Step -1
    k1 = i + 1
    k2 = Cells(i, 2).Value
    Rows(k1 & ":" & k2 + k1 - 2).Insert
    Rows(k1 - 1).Copy Rows(k1 & ":" & k2 + k1 - 2)
    
    Next
    Application.ScreenUpdating = True
    

End Sub

Не бойтесь совершенства. Вам его не достичь.

Андрей_26 Пользователь Сообщений: 647 Регистрация: 30.01.2018	#4 17.02.2020 09:15:30 Пробуйте Прикрепленные файлы Пример.xlsm (19.85 КБ)

Kuzmich Пользователь Сообщений: 8057 Регистрация: 21.12.2012	#5 17.02.2020 09:36:20 Недавно решали подобную задачу https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=125719