Как вставить пустую строку?

[n0str0m0]

Имеется столбец с данными. Нужно перенести эти данные на другой лист, но так, чтобы после каждого значения вставлялась пустая строка, то есть на втором листе данные должны вставиться через одну строку. Данных очень много, подскажите, как автоматизировать процесс?

[IgorGO]

1.переносите как есть.
2.поставьте курсор в ячейку, перед которой надо вставить первую пустую строку
3.выполните этот чудодейственный макрос

Sub Макрос1()
  Dim r As Long
  For r = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To ActiveCell.Row Step -1
    Rows(r).Insert Shift:=xlDown
  Next
End Sub

или вот этот (действительно для одной колонки)

Sub Макрос2()
  Dim r As Long, c As Long
  c = ActiveCell.Column
  For r = Cells(Rows.Count, c).End(xlUp).Row To ActiveCell.Row Step -1
    Cells(r, c).Insert Shift:=xlDown
  Next
End Sub

[vikttur]

=ЕСЛИ(ОСТАТ(СТРОКА(1:1);2);"";ИНДЕКС(Лист1!$A$1:$A$100;СТРОКА(1:1)/2))

Но при "данных очень много" лучше макрос.

[n0str0m0]

С макросом разобрался с горем пополам.
А вот с формулой от vikttur непонятки: когда ее вставлять, куда, на каком этапе?

[n0str0m0]

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

1.переносите как есть.
2.поставьте курсор в ячейку, перед которой надо вставить первую пустую строку
3.выполните этот чудодейственный макрос

Sub Макрос1()
  Dim r As Long
  For r = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To ActiveCell.Row Step -1
    Rows(r).Insert Shift:=xlDown
  Next
End Sub

или вот этот (действительно для одной колонки)

Sub Макрос2()
  Dim r As Long, c As Long
  c = ActiveCell.Column
  For r = Cells(Rows.Count, c).End(xlUp).Row To ActiveCell.Row Step -1
    Cells(r, c).Insert Shift:=xlDown
  Next
End Sub

Пришлось возвратиться к теме. До сегодняшнего дня этот макрос меня выручал, а вот сегодня мне понадобилось вставить уже 2 пустых строки в листе. Мне казалось, что если я выполню этот чудо-макрос два раза, то и получу вставку двух строк, а не одной. Ан нет, логика не сработала, всавляет сначала 2 строки а потом 3, еще 3 и т.д. Попытка влезть в текст макроса и чего-то там поменять ни к чему хорошему не приводит, не могу я понять, где чего исправить, чтобы вставлял уже 2 или 3 пустых строки и тд. Если не трудно, подскажите, где нужно чего подправить, чтобы добиться желаемого.

[kuklp]

Sub Макрос1()
  Dim r As Long
  For r = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To ActiveCell.Row Step -1
    Rows(r).Insert Shift:=xlDown
    Rows(r).Insert Shift:=xlDown
  Next
End Sub

[n0str0m0]

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

Sub Макрос1()
  Dim r As Long
  For r = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To ActiveCell.Row Step -1
    Rows(r).Insert Shift:=xlDown
    Rows(r).Insert Shift:=xlDown
  Next
End Sub

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

[Frai5]

а как вставить одну пустую ячейку?
Ситуация такая, что в закрашенной строке нужно чтобы после активной ячейки вставлялась пустая (без форматов).
Ну и ячейка всегда выбирается разная, конечно.

[Казанский]

activecell.Offset (,1).Insert xltoright
activecell.Offset (,1).clear