Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование выбранных данных / 5 сообщений из 5, страница 1 из 1
30.05.2011, 13:59
    #37285393
Inoyat
Inoyat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование выбранных данных
Привет всем !!!!!
Есть 210000 строк в экселе поставил фильтр хочу скопировать 18000 строк из 210000 но при копировании на новый лист у меня копируются все строки!
Как можно этого избежать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2011, 15:22
    #37285576
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование выбранных данных
Inoyat, надо выложить то что Вы уже сделали
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2011, 08:06
    #37288545
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование выбранных данных
Выделите диапазон строк из которого надо копировать.
Нажмите F5
Выберите пункт - Видимые строки
Скопируйте их
Вставьте в нужное место.

Если нужно программно, макрорекордер Вам в руки ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2011, 12:26
    #37555817
natalitvinenko
natalitvinenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование выбранных данных
Дмит,
огромное спасибо за этот совет. Если вдруг кому надо- кусок кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Range("A1:F200").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="3"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Диапазон").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Диапазон").Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2011, 23:15
    #37566374
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование выбранных данных
natalitvinenko,

Я так думаю, что пример обычно не понадобится по одной простой причине - если начинаем делать с помощью VBA, то примерно так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim nR=1
for each r in Range("A1:F200").Rows
 if r.Cellls(1,4).Value=3 then
  r.Copy Sheets("Диапазон").Rows(nR)
  nR=nR+1
 end if
next

Ничего личного, конечно, но макрорекордер в Excel - это пример возможной реализации, а отнюдь не алгоритм...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование выбранных данных / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 314ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2176208]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 34ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 229ms
total:  314ms
x
x
Закрыть


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