Работа с программой EXCEL
Материал из Фабиус wiki
Версия от 10:52, 26 февраля 2016; Hisava (обсуждение | вклад) (Новая страница: «== Вставить каждую вторую строку == Sub Макрос() For i = 1 To 100 Step 2 Rows(i).Select Selection.Insert Shift:=xlD…»)
Вставить каждую вторую строку
Sub Макрос()
For i = 1 To 100 Step 2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next
End Sub
