добавить строки

[vostok]

Привет профессионалам. Помогите пожалуйста, за два дня ничего не придумал. В книге 2 листа, на первом длинный список наименований, 400 строк, на втором список ссылок на список из первого, вида: ='Лист 1'!A1 и так далее. Надо на втором листе между строк с формулами вставить по 15 пустых строк. Через "вставить строку" долго и утомительно (400*15=6000), если через Ctrl выделять и вставлять строки, то все смещается, вверху появляютс лишние строки, внизу не хватает. Не могу решить задачу! Жду вашего решения, спасибо заранее.

[SAS888]

Для значений в столбце "A" на листе 2 (любых) можно выполнить следующий макрос:

Sub InsRows()
    Dim i As Long, j As Long: i = 2: j = 16
    Application.ScreenUpdating = False: Sheets(2).Activate
    Do While Cells(i, 1) <> ""
        Rows(i & ":" & j).Insert
        i = i + 16: j = j + 16
    Loop
End Sub

[vostok]

Я извиняюсь, но не знаю как этот текст макроса куда и как прописывать, умею только вручную макросы писать, по порядку действий.

[SAS888]

Откройте Ваш файл, нажмите Alt+F11. Клик правой кнопкой - "Insert" - "Module". В созданное окно скопируйте представленный код. Закройте VBE. После этого макрос "InsRows" появится в списке макросов. Запустите его.

[vostok]

К сожалению, не получается, пишет: "ошибка запуска макроса Visual Basis из-за синтаксической ошибки". Может, из-за того что лист называется "размеры"?

[SAS888]

Посмотрите вложение. На листе "Лист2" в диапазоне "A1:A40" ячейки со ссылками. Запустите макрос "InsRows". Макрос после каждого значения будет добавлять 15 пустых строк до тех пор, пока не встретит пустую ячейку в столбце "A". Так нужно было?

[vostok]

Да, именно так и нужно было, не знаю, почему он в моей книге не срабатывал, ну ладно, сделаю другую, на основе Вашей. Спасибо огромное!