ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка строк в лист
10 сообщений из 10, страница 1 из 1
Вставка строк в лист
    #35659558
ВК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВК
Гость
Товарищи, подскажите пожалуйста, такая проблема.

Нужно в лист Эксель, с уже имеющимися данными, вставить программно пустые строки, через одну, до конца файла.

т.е. есть вот это:
1234
1234
1234
1234

нужно вот так:
1234

1234

1234

1234

вручную замучаешься ибо сток очень много. С экселем не работал, неизвестен синтаксис.
...
Рейтинг: 0 / 0
18.11.2008, 09:57:42
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35660164
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Ну, если с ВБА у тебя проблемы, то можно так:
Потребуется 2 свободных столбца. В первом из них напротив твоих данных, которые надо разделить пустыми строками, вводишь формулу:
=ЕСЛИ(СТРОКА()/2=ОТБР(СТРОКА()/2);1;"")
В столбце рядом - формулу:
=ЕСЛИ(СТРОКА()/2=ОТБР(СТРОКА()/2);"";1)
Далее, выделяешь область с единичками так, чтобы охватить их все, и нажимаешь Ctrl+G, жмёшь кнопку "Выделить...", затем ставишь галочку "Формулы" и снимаешь галочку со слова "Текст" и жмёшь ОК.
Затем щёлкаешь на одной из выделенных ячеек правой клавишей и выбираешь "Добавить ячейки...", где ставишь галочку "cтроку". Далее - ОК.
...
Рейтинг: 0 / 0
18.11.2008, 12:54:32
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35660302
ВК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВК
Гость
спасибо, помогает )
но неплохо бы было в ВБА в макрос это перевести

как там записать тогда do until EOF и безразмерный range? я работал с аксессом, в экселе же мне не известно
...
Рейтинг: 0 / 0
18.11.2008, 13:23:04
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35660481
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Дай имя "ExtCol" любой ячейке промежуточного столбца. Любой ячейке в той строке, где у тебя начинаются данные, задай имя "FirstRow". Затем:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub test()
Dim TmpRng As Range
Set TmpRng = Cells([FirstRow].Row, [ExtCol].Column).Resize([FirstRow].End(xlDown).Row - [FirstRow].Row)
TmpRng.Resize( 1 ) = "=IF(ROW()/2=TRUNC(ROW()/2),"""",1)"
TmpRng.FillDown
Set TmpRng = TmpRng.SpecialCells(xlCellTypeFormulas, xlNumbers)
Union(TmpRng, TmpRng.Offset( 1 ,  1 )).EntireRow.Insert
End Sub
...
Рейтинг: 0 / 0
18.11.2008, 14:01:13
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35981600
Oliushka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oliushka
Гость
А подскажите, как просто вставить новую строку со смещением вниз через ВБА?
...
Рейтинг: 0 / 0
12.05.2009, 20:00:30
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35982453
Lost Jonny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lost Jonny
Гость
Oliushka,

Код: plaintext
1.
        Rows( 1 ).Select
    Selection.Insert Shift:=xlDown
...
Рейтинг: 0 / 0
13.05.2009, 11:17:39
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35985130
Oliushka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oliushka
Гость
Lost Jonny,

У меня список. Нахожусь на какой-нибудь строке, нужно добавить новую строку между этой и следующей, т.е. строку ниже.
Написала вот так
Cells(a + 1, 2).EntireRow.Insert
работает.
У вас сложнее код. В чем разница?
...
Рейтинг: 0 / 0
14.05.2009, 11:55:51
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35985334
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Oliushka,
этот код записан макрорекордером, чего и вам желаю
...
Рейтинг: 0 / 0
14.05.2009, 13:09:11
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35985623
Lost Jonny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lost Jonny
Гость
PlanB,

Ну, задачку-то решил на вопрос :)
...
Рейтинг: 0 / 0
14.05.2009, 14:38:27
| Ответить | Цитировать | Написать  
Вставка строк в лист
    #35986746
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Lost Jonny,а кто спорит?
...
Рейтинг: 0 / 0
14.05.2009, 20:25:30
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка строк в лист
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=195&tid=2179474]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 193ms
total:  286ms
созд. / загр.: 286ms
x
x
Закрыть


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