Как вставить в лист EXCEL каждую вторую пустую строку

Материал из Фабиус wiki
Перейти к: навигация, поиск

Необходимо написать макрос

  For i = 1 To 1000 Step 2
    Rows(i).Select
    Selection.Insert Shift:=xlDown
  Next