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

Код: plaintext
1.
2.
3.
   Union( _
    Range("C5:AY15,C24:AY49,C58:AY87,C96:AY125,C134:AY163,C172:AY186,C199:AY204,C215:AY221,C225:AY227,C239:AY304,C320:AY323"), _
    Range("C528:AY548,C550:AY555,C562:AY563,C589:AY591,C607:AY609,C633:AY635,C646:AY646,C709:AY711,C722:AY722") _
    ).Insert Shift:=xlDown
Эксель вставляет ячейки начиная с нижних диапазонов, а мне нужно чтобы вставлял с верхних.
Подскажите, как изменить порядок вставки диапазонов???

П.С.
Помню Deggasad спрашивал подобное (про поиск значения в ячейках), но я не нашел этой темы
...
Рейтинг: 0 / 0
26.01.2008, 16:44:23
| Ответить | Цитировать | Написать  
Эксель вставляет выделенные не смежные ячейки снизу вверх?
    #35089581
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
может так?

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test1()
    Application.ScreenUpdating = False
    Union( _
        Range("C5:AY15,C24:AY49,C58:AY87,C96:AY125,C134:AY163,C172:AY186,C199:AY204,C215:AY221,C225:AY227,C239:AY304,C320:AY323"), _
        Range("C528:AY548,C550:AY555,C562:AY563,C589:AY591,C607:AY609,C633:AY635,C646:AY646,C709:AY711,C722:AY722") _
        ).Offset(- 1 ).Insert Shift:=xlDown
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
26.01.2008, 17:21:35
| Ответить | Цитировать | Написать  
Эксель вставляет выделенные не смежные ячейки снизу вверх?
    #35090649
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
KL (XL)может так?не получилось...
все равно снизу встваляет.
Попробую прикрепить пример
...
Рейтинг: 0 / 0
28.01.2008, 06:51:12
| Ответить | Цитировать | Написать  
Эксель вставляет выделенные не смежные ячейки снизу вверх?
    #35090651
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
Сергей06Попробую прикрепить пример
...
Рейтинг: 0 / 0
28.01.2008, 06:51:45
| Ответить | Цитировать | Написать  
Эксель вставляет выделенные не смежные ячейки снизу вверх?
    #35090763
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
    ThisWorkbook.Sheets( 2 ).Activate
    For Each a In Range("C:C").SpecialCells(xlCellTypeBlanks).Areas
        a.Offset(, - 2 ).Insert Shift:=xlDown
    Next a
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.01.2008, 09:15:19
| Ответить | Цитировать | Написать  
Эксель вставляет выделенные не смежные ячейки снизу вверх?
    #35091077
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
KL (XL)Спасибо.
Только вот в столбце C для примера были проставлены ячейки. Они не являются обязательным условием.
Обходится приходится этим:
Код: plaintext
1.
2.
    Range("C239:AY304").Insert Shift:=xlDown
    Range("C320:AY323").Insert Shift:=xlDown
    ...

Вопрос остался:
эта строчка кода
Код: plaintext
Application.ScreenUpdating = False
нужна только для ускорения работы макроса?
...
Рейтинг: 0 / 0
28.01.2008, 11:19:23
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эксель вставляет выделенные не смежные ячейки снизу вверх?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=247&tid=2181538]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 202ms
total:  276ms
созд. / загр.: 276ms
x
x
Закрыть


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