написать макрос для дубляжа строк

[Таруми]

вышла после декрета на работу. мозг включаться пока отказывается.

есть простенькая табличка в эксель: 5столбцов, 5100 строк. нужно продублировать строки по два раза, чтобы их стало 15300)))
т.е было
1
2
3
стало
1
1
1
2
2
2
3
3
3

как продублировать всю таблицу 3 раза -не вопрос. хоть 150 раз. а вот такой макрос сообразить не могу.

[Serge_Bliznykov]

попробуйте такой макрос (взял тут):

Option Explicit

Sub vstavka()
Dim iLastRow As Long
Dim i As Long
Dim n As Long

iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastRow To 1 Step -1
For n = 1 To 3
  Cells(i, 1).EntireRow.Copy
  Cells(i, 1).EntireRow.Insert xlDown
Next
Next
End Sub

[IgorGO]

Sub Add2Rows()
  Dim r As Long
  For r = 1 To 5100 Step 3
    Rows(r).Copy
    Rows(r + 1).Resize(2).Insert shift:=xlDown
  Next
End Sub

[IgorGO]

так 3 строки добавится
For n = 1 To 3
нужно
For n = 1 To 2

или потом еще цикл и лишнюю строку - удалить)

[SAS888]

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

Sub Add2Rows()
  Dim r As Long
  For r = 1 To 5100 Step 3
    Rows(r).Copy
    Rows(r + 1).Resize(2).Insert shift:=xlDown
  Next
End Sub

Так продублируется только треть таблицы. Цикл нужно увеличить:

For r = 1 To 5100 * 3 Step 3

Перед циклом целесообразно добавить:

Application.ScreenUpdating = False

А после цикла:

Application.CutCopyMode = False

[IgorGO]

однако...
насколько бы мудр не был человек - не проходит и дня чтобы он не умудрился!!!)

[Таруми]

спасибо люди-человеки!