Вставить пустые строки в excel через одну
Автор Maxim Matrenitski задал вопрос в разделе Программное обеспечение
Как в Excel'е (2010) вставить строки после каждой строки в выбранном диапазоне? и получил лучший ответ
Ответ от Алексей Матевосов (AlexM)[гуру]
Можно задачу решить макросом Разрешаем выполнение макросов Сервис -> Макрос -> Безопасность -> Средняя. Теперь вставляем макрос Сервис -> Макрос -> Редактор Visual Basic. Далее в редакторе VBA в окошке VBAProject кликаем по VBAProject(имя файла) , затем Insert -> Module при этом откроется окошко вставки кода. Код: ----------------------------------Sub Proredit() On Error Resume Next Set rngD = Application.InputBox(Prompt:="Выделите диапазон для " & Chr(13) _ & "прореживания пустыми строками", Title:="Ввод диапазона", Type:=8) rs = rngD.Item(1).Row rf = rngD.Item(rngD.Count).Row Application.ScreenUpdating = False For i = rs To rf * 2 - rs - 1 Step 2 Rows(i + 1).Insert Shift:=xlDown Next i Application.ScreenUpdating = True End Sub ----------------------------------Вставляем код. Переходим в окно Excel Запускаем макрос Сервис -> Макрос -> Макросы, выбираем макрос "Proredit" и жмем выполнить.
Выделить строку Нажать CTRL И не отпуская эту клавишу выделить следующие строки. Потом нажать ВСТАВИТЬ СТРОКИ
Вау!!!! Всё получилось!Спасибо огромное!
Алексей Матевосов, спасибо огромное!!!!