Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление строк / 10 сообщений из 10, страница 1 из 1
03.05.2007, 13:26:23
    #34502010
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Никак не соображу как добавить по одной строке после каждой.
Т.е. есть (например) 10 строк и нужно после каждой добавить еще одну пустую строку. В результате получил бы 20 строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 13:36:50
    #34502065
udgeen69
udgeen69
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Руками сделай, запиши скрипт...
Потом добавь туда пару переменных и сделай цикл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 13:41:28
    #34502089
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Про 10 строк это был пример. На самом деле их примерно 12000. На счет рук это уж слишком.
Если кому надо, то до меня дошло как реализовать этот цикл
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub CEL1()
tt =  1 
Labelorio:
   For i = tt To ActiveCell.SpecialCells(xlLastCell).Row
            Rows(i +  1 ).Insert Shift:=xlDown
            tt = i +  2 
          GoTo Labelorio
   Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 13:43:20
    #34502097
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
andMegaMНикак не соображу как добавить по одной строке после каждой.
Т.е. есть (например) 10 строк и нужно после каждой добавить еще одну пустую строку. В результате получил бы 20 строк.

For i = 10 To 1 step -1
row(i).Insert
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 13:46:22
    #34502108
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Deggasad
Так даже короче. Спасибо за вариант
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 14:43:03
    #34502345
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Во связь глючит у меня... я уж часа три назад прислал тоже что и Deggasad ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 14:47:14
    #34502368
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Granata005Во связь глючит у меня... я уж часа три назад прислал тоже что и Deggasad ...

Топик создали за 17 мин до моего ответа!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 14:51:37
    #34502386
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Круто.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 14:52:19
    #34502390
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Deggasad

У Granata005 наверно не только связь глючит, но и часы :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2007, 15:43:42
    #34502638
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление строк
Гы-гы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление строк / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 296ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183031]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 187ms
total:  296ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]