Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эксель вставляет выделенные не смежные ячейки снизу вверх? / 6 сообщений из 6, страница 1 из 1
26.01.2008, 16:44:23
    #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, 17:21:35
    #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
| Ответить | Цитировать | Написать  
28.01.2008, 06:51:12
    #35090649
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эксель вставляет выделенные не смежные ячейки снизу вверх?
KL (XL)может так?не получилось...
все равно снизу встваляет.
Попробую прикрепить пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2008, 06:51:45
    #35090651
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эксель вставляет выделенные не смежные ячейки снизу вверх?
Сергей06Попробую прикрепить пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2008, 09:15:19
    #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, 11:19:23
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эксель вставляет выделенные не смежные ячейки снизу вверх? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 346ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2181538]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 228ms
total:  346ms
x
x
Закрыть


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