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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

pavsem7

Старожил

Сообщения: 390
Благодарности: 7

Профиль | Отправить PM | Цитировать

Изменения

Автор: pavsem7
Дата: 28-04-2015

Не подскажите ли код, вставляющий строки в лист 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 ?

Отправлено: 15:11, 28-04-2015

Coutty

Кот Ти

Сообщения: 7318
Благодарности: 1204

Профиль | Отправить PM | Цитировать

Код:

For num = 9 To 9397 Step 4
   Rows(num).Select // вот здесь самостоятельно экспериментируйте. Я не знаю точно в каком виде подставить
   Selection.Insert Shift:=xlDown
   Selection.Insert Shift:=xlDown
Next

Это сообщение посчитали полезным следующие участники:

pavsem7

Отправлено: 18:01, 28-04-2015 | #2