макрос на повторение

[curock77]

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

Sub Копи_строк()
'
' Копи_строк Макрос

Rows("15:15").Select
Selection.Copy
A_LastRow = Cells(Rows.Count, 1).End(xlUp).Select + 1
Selection.Insert Shift:=xlDown

End Sub

[Hugo121]

Sub copyspovtorom()
    Dim i&
    Application.ScreenUpdating = False
    For i = 1 To [a1].Value
        Rows(15).Copy Cells(Rows.Count, 1).End(xlUp)(2)
    Next
    Application.ScreenUpdating = True
End Sub

[Скрипт]

curock77, вообще, в языках программирования используются циклы, если одно и то же действие нужно сделать несколько раз.

В VBA есть вот такие циклы:

1. For ... To ... Step ... Next - используется, если известно, сколько раз нужно выполнить одну и ту же команду;
2. Do ... Loop - используется, если заранее не известно, сколько раз выполнить одну и ту же команду;
3. For Each ... Next - используется для обработки всех элементов в коллекции или VBA-массиве.

Но мне кажется, что ваша задача по-другому решается. Выложите книгу с примерными данными и на основе этой книги поясните, что нужно сделать.

[IgorGO]

число повторов в ячейке А2

Rows("15:15").Copy
Cells(Rows.Count, 1).End(xlUp).offset(2,0).resize([a2],1).Insert Shift:=xlDown

если я правильно все понял - работать должно так (поубирал select с Вашего кода)

[curock77]

Спасибо Hugo121 ,IgorGO за Ваши варианты, все работает.

[Xstroy]

Если ещё есть кому ответить...

Сообщение от Hugo121

Sub copyspovtorom()
    Dim i&
    Application.ScreenUpdating = False
    For i = 1 To [a1].Value
        Rows(15).Copy Cells(Rows.Count, 1).End(xlUp)(2)
    Next
    Application.ScreenUpdating = True
End Sub

Сообщение от IgorGO

число повторов в ячейке А2

Rows("15:15").Copy
Cells(Rows.Count, 1).End(xlUp).offset(2,0).resize([a2],1).Insert Shift:=xlDown

если я правильно все понял - работать должно так (поубирал select с Вашего кода)

Оба решения хороши, но понадобилось размножить не строки, а диапазон ячеек (к примеру М10:R10). И тогда сие чудо не работает. Подскажите как ...

Кроме того, требуется чтобы повторов было столько, сколько не пустых ячеек со значением слева (указанием ячейки).

Пытался вставлять в заведомо больший диапазон ячеек, но когда повторы доходят до конца данных, используемых в копируемой формуле, выскакивает ошибка.