powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование выбранных данных
5 сообщений из 5, страница 1 из 1
Копирование выбранных данных
    #37285393
Inoyat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем !!!!!
Есть 210000 строк в экселе поставил фильтр хочу скопировать 18000 строк из 210000 но при копировании на новый лист у меня копируются все строки!
Как можно этого избежать ?
...
Рейтинг: 0 / 0
Копирование выбранных данных
    #37285576
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Inoyat, надо выложить то что Вы уже сделали
...
Рейтинг: 0 / 0
Копирование выбранных данных
    #37288545
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выделите диапазон строк из которого надо копировать.
Нажмите F5
Выберите пункт - Видимые строки
Скопируйте их
Вставьте в нужное место.

Если нужно программно, макрорекордер Вам в руки ;)
...
Рейтинг: 0 / 0
Копирование выбранных данных
    #37555817
Фотография 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
Копирование выбранных данных
    #37566374
Фотография 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
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование выбранных данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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