программа вставки строк в Excel - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - программа вставки строк в Excel (http://forum.oszone.net/showthread.php?t=299086)

программа вставки строк в Excel

Не подскажите ли код, вставляющий строки в лист Excel.
Мне нужно после 8, 10, 12,....3750, 3752 строки на первом и единственном листе вставить по 2 пустых строки.
У бухгалтера две похожие ведомости по кварталу, которые нужно сравнить на соответствие цифр, в одной на каждый документ по 5 строк, а в другой на те же документы только по 2 и документов под 2000 штук.
Попробовал через запись макроса, получилось:

Rows("9:9").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("13:13").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Rows("21:21").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
....

Как зациклить до 9397 ?

Код:

For num = 9 To 9397 Step 4

   Rows(num).Select // вот здесь самостоятельно экспериментируйте. Я не знаю точно в каком виде подставить

   Selection.Insert Shift:=xlDown

   Selection.Insert Shift:=xlDown

Next

Цитата:

Цитата Coutty

Rows(num).Select // вот здесь самостоятельно экспериментируйте. Я не знаю точно в каком »

Сработало в вашем виде!