Работа с программой EXCEL — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «== Вставить каждую вторую строку == Sub Макрос() For i = 1 To 100 Step 2 Rows(i).Select Selection.Insert Shift:=xlD…»)
(нет различий)

Версия 10:52, 26 февраля 2016

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

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