Копировать строку N раз

[tgm]

Добрый день. Помогите решить.. Пример в файле

[doober]

С формой проще реализовать.выберете необходимый диапазон как в Инструкции

[tgm]

doober! Большое Вам спасибо!

[SAS888]

А зачем что-то выделять? Ведь по условию нужно обработать все строки. Если так, то можно проще:

Private Sub qq()
    Dim i As Long, j As Long, k As Long, a(): Application.ScreenUpdating = False
    a = Range([A2], Cells(Rows.count, 10).End(xlUp)).Value
    Sheets(2).Activate: Rows("2:" & Rows.count).ClearContents: k = 1
    For i = 1 To UBound(a, 1)
        For j = 1 To a(i, 10)
            Range(Cells(k + j, 1), Cells(k + j, 10)) = Application.Index(a, i, 0)
            Cells(k + j, 10) = j & "/" & a(i, 10)
        Next: k = k + j - 1
    Next
End Sub

Пример во вложении.

[tgm]

Добрый день! SAS888 большое спасибо за помощь! У меня еще 1 вопросик,можно ли в этом макросе обойтись без кнопки?

[SAS888]

Можно. Пример во вложении. Запустите макрос "Main".

[Gerich]

Спасибо огромное!! Я я искал это ооооооочень долго! теперь отчет клепаю за 15 минут)))!!! Ура, товарищи!!