Работа с программой EXCEL

Вставить каждую вторую строку

Sub Макрос()
  For i = 1 To 100 Step 2
    Rows(i).Select
    Selection.Insert Shift:=xlDown
  Next
End Sub

Смотрите также

Информация для разработчиков системы фабиус