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

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

Версия 13:26, 6 апреля 2017

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

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

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

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