Как вставить в лист EXCEL каждую вторую пустую строку — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «Необходимо написать макрос For i = 1 To 100 Step 2 Rows(i).Select Selection.Insert Shift:=xlDown Next»)
 
м
 
(не показаны 2 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
Необходимо написать макрос
 
Необходимо написать макрос
 
+
   For i = 1 To 1000 Step 2
   For i = 1 To 100 Step 2
+
 
     Rows(i).Select
 
     Rows(i).Select
 
     Selection.Insert Shift:=xlDown
 
     Selection.Insert Shift:=xlDown
 
   Next
 
   Next
 +
= Смотрите также =
 +
[[EXCEL]]

Текущая версия на 09:42, 27 июля 2017

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

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

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

EXCEL