Вставить строку между диапазонами чисел в Excel

Question

В моем Excel есть 1 столбец и 10 рядов последовательных чисел. Я хочу создать макрос, который может начинаться с верхнего значения столбца, затем вставлять 2 строки с первым значением списка, а затем переходить ко второму значению и делать то же самое и т. Д.

Values Column
1
2
3

Result Column
1
1
1
2
2
2
3
3
3

Answer 1

Я думаю, что это будет делать:

Sub insertRows()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
Dim R As Long

    For R = lastRow To 2 Step -1
        ws.Rows(R & ":" & R + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        ws.Range(ws.Cells(R, 1), ws.Cells(R + 1, 1)) = ws.Cells(R + 2, 1).Value
    Next R

End Sub

PS: это работает снизу ... не сверху вниз.