Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Добавление пустых строк между заполненных
 
#1
28.03.2008 01:27:18
Вопрос, такого характера.  
Как в exele добавить пустые строки между заполнеными?  
То есть, есть список с 100 строками, как автоматически после каждой строчки добавить пустую? Чтоб получилось в итоге 200 строк, заполненная-пустая-заполненная-пустая?  
Или может такое в ворде проделать(потом в ексель загоню),каким другим редактором?
 
 
 
#2
28.03.2008 01:49:27
Может так?  
 
Sub InsertRows()  
Dim i As Long  
   For i = 2 To 200 Step 2  
       Cells(i, 1).EntireRow.Insert  
   Next i  
End Sub
 
 
 
#3
28.03.2008 11:00:53
{quote}{login=Pavel55}{date=28.03.2008 01:49}{thema=}{post}Может так?  
 
Sub InsertRows()  
Dim i As Long  
   For i = 2 To 200 Step 2  
       Cells(i, 1).EntireRow.Insert  
   Next i  
End Sub{/post}{/quote}  
 
Я извеняюсь за неграмотность. Но можно  по подробней.
 
 
 
#4
28.03.2008 11:12:18
Да просто вставьте этот код в пустой модуль и запустите макрос на выполнение.
 
 
 
#5
28.03.2008 12:05:56
Посмотрите приложенный файл (слева)
 
 
 
#6
28.03.2008 22:45:30
{quote}{login=Pavel55}{date=28.03.2008 12:05}{thema=}{post}Посмотрите приложенный файл (слева){/post}{/quote}  
 
Спасибо за помощь!!!!!
 
 
 
#7
09.04.2010 14:46:11
{quote}{login=Pavel55}{date=28.03.2008 12:05}{thema=}{post}Посмотрите приложенный файл (слева){/post}{/quote}  
 
А как сделать так что-бы строки добавлялись не во всем документе, а только в выбранном диапазоне.
 
 
 
#8
09.04.2010 17:11:25
А так правильней будет (и на 2 умножать не надо, да и можно iLastRow привлечь):  
 
           For i = 100 To 2 Step -1  
               Cells(i, 1).EntireRow.Insert  
           Next i
 
 
 
#9
13.04.2010 14:47:30
еще как вариант, перейти на нужное место и сделать  
ActiveCell.Resize(i).EntireRow.Insert  
где i необходимое количество строк
 
 
 
#10
13.04.2010 22:48:23
А я бы это понял (для диапазона) как вставка ячеек:))  
Cells(i, 1).EntireRow.Insert Shift:=xlDown
 
 
 
#11
08.06.2012 15:01:31
Ребята, а если нужно вставлять по 45 строк, помогите неумехе
 
 
 
#12
06.12.2012 02:32:42
Как сделать чтоб вставлялось по 2 пустые строчки?
 
 
 
Страницы: 1
Наверх