Вставка строк в таблицу в с помощью макроса

Posted by Chas under Basic, Пост-обзор

Подскажите плз, как в таблице вставить 5 (не факт может и 50 и 400) строк после каждой заполненной уже строки. Т.е. существует таблица (очень большая), но допустим, что она состоит из 10 строк. Мне нужно простым действием вставить после каждой строки 5 (50-400) пустых строк. Как это сделать быстро?

Watcher_1
Ловите!

Sub n()

  RowCount = 5 ' кол-во строк в таблице

  RouIns = 10 ' кол-во строк для вставки

  For i = 2 To RowCount

    Range("B" & i + s & ":B" & i + s + RouIns).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

    s = s + RouIns + 1

  Next

Похожие статьи

• Как макросом брать данные с word документов в excel?
• Как экспортировать таблицу ehlib в word?
• Программно очистить содержимое ячейки таблицы в word
• Удалить текст из таблицы в word
• Создать список папок и вложенных в них файлов из выбранной директории
• Удалить лишние пробелы (аналог функции trim)
• Как в excel можно задать открытие шаблона Word по полному пути?
• Удаление пустых строк в таблице (Microsoft Office Word)
• Вставить текст в определенную строку ячейки таблицы в ворде
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы