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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
 
Строка 1: Строка 1:
 
= Вставить каждую вторую строку =
 
= Вставить каждую вторую строку =
 
 
  Sub Макрос()
 
  Sub Макрос()
 
   For i = 1 To 100 Step 2
 
   For i = 1 To 100 Step 2
Строка 7: Строка 6:
 
   Next
 
   Next
 
  End Sub
 
  End Sub
 
 
= Смотрите также =
 
= Смотрите также =
 
[[EXCEL]]
 
[[EXCEL]]

Текущая версия на 08:56, 2 августа 2017

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

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

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

EXCEL