Страницы: 1
RSS
Добавление пустых строк между диапазонами заполенных
 
Добрый день всем. Буду признателен за помощь:
есть сплошной массив данных расположенный в столбце A, необходимо вставить 5 пустых ячеек после каждой 17-ой ячейки массива в столбце А. Как это сделать?

Заранее благодарю!
 
Код
Sub bb()
Dim i&
For i = (Cells(Rows.Count, 1).End(xlUp).Row \ 17) * 17 To 17 Step -17
  Cells(i + 1, 1).Resize(5).Insert xlShiftDown
Next
End Sub
 
Гениально, благодарю!!!
Страницы: 1
Наверх