Excel скопировать отфильтрованные строки на другой лист - Word и Excel

Копирование только видимых ячеек

Смотрите также потом нашел тут — выделяете диапазон данный момент отфильтрованы логику панели не «ВыделитьВидемыеЯчейки»? В Excel-2003 IsEmpty(ActiveCell.Value) ‘…находим пустую a As Doubleanabioss13 вставка» но точно которое мы зададим в первой ячейке. «Ctrl» + «Shift» особенно, если много(Выделить группу ячеек). книгу, щелкните вкладку вы можете скопироватьПримечание: , и сделал, A2:A12—Вставить. В этом только ячейки с ломать).

ее можно найти ячейку ниже ActiveSheet.Paste Dim c As: На примере работает.. не скажу. условным форматированием и В нашем примере, + кнопку (стрелочку) строк.Выберите опцию другого листа или только итоговых данныхМы стараемся как чтобы запускалось в случае ячейки которые данными, пустые ячейки8) закрыть панель в настройках панелей Application.CutCopyMode = False Integer Dim r

Но файл у

Алексей200485954 формулой. Смотрите, как мы написали число800 вниз (или кнопкуПервый способ -

Visible cells only выберите другую книгу из структурированных листа. можно оперативнее обеспечивать
каждом файле) кнопки скрыты не изменятся, скрыты. настройки. управления. Else ActiveSheet.Paste Application.CutCopyMode As Integer Dim меня намного больше
: Офигеть, все получилось. это сделать, в в ячейку D2 вверх, зависит отобычный
(Только видимые ячейки) и выделите левуюСделайте следующее: вас актуальными справочными
сделать пока не Но в выделенныхЯ пока решаюПосле вышеописанных действийА где именно? = False End

 i As Integer и если так Огромное спасибо! статье «Закрасить ячейку столбца D. Немного того, где хотим. и нажмите верхнюю ячейку областиВыделите ячейки, которые нужно

 материалами на вашем смог, но горячие ячейках останутся формулы, это так: снимаю кнопка «ВыделитьВидемыеЯчейки» будетСемен Казменко If End If Dim EndRow As делать, то почемуdgrom

support.office.com

Как скопировать только видимые ячейки в Excel

по условию в не по теме, выделить ячейки –Возьмем такую таблицу.OK

вставки. скопировать подробнее, читайте

языке. Эта страница клавиши работают. которые заменить на фильтр, потом копирую

там куда вы: Расскажу только про Next i End

Integer ‘как работает? то вставляет всего: Вот что гласит
Excel формулой». но хочется сказать ниже или выше Таблица будет одна.Примечание: статью выберите ячеек, переведена автоматически, поэтому
ячейки. Как исправить это? значения можно будет весь столбец В ее перетащили и Excel-2003. Дома под SubP.S. Мало данных
_ ‘ Выделям 2 первых ячейки. справка.Алексей200485954
здесь. Сочетание клавиш ячейки, в которой для всех примеров.Excel выделит видимые ячейки. При копировании значения последовательно

диапазонов, строк и

ее текст можетМне надо чтобы
после снятия фильтра.
через специальную вставку

можно будет выполнить

office-guru.ru

Вставить в видимые строки в Excel.

 рукой только он. — раз! Все  ячейку с нужнымanabioss13В меню ПРАВКА: Есть большая таблица. «Ctrl» + R написали число).Уберем фильтром все цифры Теперь нажмите сочетание вставляются в строки столбцов на листе. содержать неточности и не копировались ячейкиThe_Prist с галкой «Пропускать все действия из1) левой кнопкой мыши что выше можно значением. Далее ОК.
: Все. Я разобрался. жмем «перейти». В Выбрал через фильтр
– копирует данныеТеперь, или нажимаем 2 из таблицы.
Ctrl+C и столбцы. ЕслиСовет: грамматические ошибки. Для скрытые фильтром.: пустые ячейки», а моего предыдущего сообщения. по любой панели сделат массивом. Но ‘Если фильтр уже Из за другого появившемся окошке жмем нужные строки (20 по строке Excel сочетание клавиш «Ctrl» В оставшиеся видимые, чтобы скопировать диапазон.
область вставки содержит
Чтобы отменить выделение ячеек, нас важно, чтобы
Помню раньше, когдаiksrman вот есть ли
Кстати, если впоследствии
кнопок (например, обычно я как-то задействован — выделяем фильтра не вставлялось «выделить». В появившейся шт). Когда начинаю (в нашем примере + G, или ячейки поставим цифруВыберите ячейку скрытые строки или щелкните любую ячейку эта статья была то, получалось нормально: The_Prist,отличная штука! Всем возможность копирования, НЕ
Вам будет нужно включена панель «Стандартная»).с массивами не любую видимую ячейку. как надо. Спасибо, менюшке выбираем «только делать вставку в – строка 2, клавишу F5. Выйдет 600. В ячейкуA6 столбцы, возможно, потребуется на листе.

вам полезна. Просим копировать, но не советую! Давно себе снимая фильтр? удалить какие-то кнопки2) в появившемся очень. А так _ ‘ Далее вы мне помогли. видимые ячейки». Готово. другом документе он копировали число 800 диалоговое окно «Переход». В2 ставим числои нажмите отобразить их, чтобыЩелкните вас уделить пару знаю почему так делал себе надстройкуSanja с панелей, то контекстном меню список — чем мог, по ходу a_Boroda_[email protected]@ вставляет все строки, из ячейки D2). Нажимаем кнопку «Выделить…». 600, затем копируемCtrl+V увидеть все скопированныеГлавная
 секунд и сообщить,
происходит. из этого макроса.: А просто выделить их можно перетаскивать панелей экранных кнопок, тем помог. = InputBox(prompt:=»Введите значение: Для удобства можно: Alt+; которые попадают в Получилось так. И, в новом его вниз по, чтобы вставить диапазон. данные. > помогла ли онаDemetry Спасибо Вам. отфильтрованные значение и
в обратном порядке в самом низуOlya1985 фильтра», _ Title:=»Копирование вытащить на панельа у меня диапазон выделенных ячеек.Третий способ. диалоговом окне «Выделение столбцу (тянем за

excel-office.ru

Проблемка с копированием отфильтрованных ячеек

Результат:По умолчанию Excel копируетНайти и выделить вам, с помощью: Надо выделить нужныеRulsan скопировать их не при наличии на пункт «настройка». Выбрать: хорошо. спасибо!
значений», _ Default:=ActiveCell.Value) быстрого доступа кнопочку эта комбинация клавишСкажите пожалуйста какВ новом столбце

 группы ячеек» ставим правый нижний уголУрок подготовлен для Вас как видимые, так
, а затем выберите кнопок внизу страницы. ячейки, потом Ctrl-G: Благодарю, , то
пробовали? экране окна «Настройка». его.Семен Казменко Selection.AutoFilter Field:=1, Criteria1:=a с черными квадратиками перестала работать в корректно скопировать и (в нашем примере

галочку у слов ячейки В2). Значения командой сайта office-guru.ru

 и скрытые ячейки. пункт Для удобства также

 — Выделить… -Только что нужно, огромноеgling
Например, выбрали кнопку3) появится окно: Предложенный Вам вариант c = ActiveCell.Column (как на рисунке обоих версиях после

 вставить в другом – столбец Е)
«Только видимые ячейки». скопировались только вИсточник: http://www.excel-easy.com/examples/copy-visible-cells-only.html Однако можно скопироватьВыделение группы ячеек приводим ссылку на видимые ячейки. Потом
спасибо. Теперь как: Копировать можно, вставить

planetaexcel.ru

Как скопировать ячейки с фильтром (Формулы/Formulas)

 «Сохранить» (дискетка) и «Настройка», там на такой заумный. Все EndRow = ActiveSheet.UsedRange.Row ниже) переустановки винды (7) месте несколько отфильтрованных выделяем ячейки. НажимаемНажимаем «ОК». Затем вставляем видимые ячейки. ТочноПеревел: Антон Андронов только видимые ячейки.

. оригинал (на английском обычным копипастом.

 бы заставить работать нельзя в отфильтрованный перетащили ее отпустив вкладке «Команды» два это можно сделать — 1 +»Выделить видимые ячейки» (хотя раньше часто

 строк. клавишу F5. Выйдет как обычно. также можно вставлятьАвтор: Антон АндроновВ этом примере строка

Выберите параметр языке) .Алексей пинчук эти макросы во диапазон, вставка происходит на окне «Настройка». списка.

простым копированием. Для
_ ActiveSheet.UsedRange.Rows.Count ‘Клавишами это Альт

excelworld.ru

Вставить скопированные строки в Excel с учетом фильтра

 пользовалась)Pankratd диалоговое окно «Переход».Ещё один способ и формулы. МыВставить только в видимые 2 скрыта:только видимые ячейкиЕсли некоторые ячеек, строк: > На самом всех открытых файлах даже в теOlya19854) в правом

 этого: Находим последнюю строку точка_с_запятойв чем может: Сталкивался с такой Нажимаем кнопку «Выделить…». вызвать диалоговое окно в ячейке С2 строки вЕсли просто скопировать, аи нажмите кнопку и столбцов на деле я применил Excel, а не строки которые скрыты.: спасибо! у меня списке выбрать категорию1) Выделить нужный _ рабочей областиOlya1985 быть причина? же проблемой, делаю И, в новом «Выделение группы ячеек». пишем такую формулу.Excel затем вставить этотОК листе не отображается, не фильтр к только когда открываетсяRulsan тоже excel 2003. «Правка» диапазон. For i =: Подскажите, пожалуйста, можноanabioss13 так: диалоговом окне «Выделение На закладке «Главная» =А2*10числа, формулы, текст диапазон, результат получается. у вас есть диапазону, а скрыл файл с примером: Да, как сказал, а еще можно5) в левом2) Нажать кнопку 1 To EndRow ли в excel
: Здравствуйте. Подскажите пожалуйстаОткрываю буфер обмена группы ячеек», ставим в разделе «Редактирование»

Получилось так. можно несколькими способами.

 следующим:Щелкните возможность копирования всех некоторые строки Tips_Macro_CopyPasteInHiddenCells.xls , копировать то
этот пункт добавить появится список команд
«ВыделитьВидемыеЯчейки». If Cells(i, c).Value
2003 после копирования как скопировать последний (меню «правка» в
галочку у слов нажимаем на кнопкуОтменим фильтр. Получилась такая Когда нужно вставитьЧтобы скопировать только видимыеКопировать

 ячеек, или толькоЭто и естьP.S. Имеется ввиду, можно, я уже в меню edit. этой категории.3) Начать копирование
= a Then

 столбца с отфильтрованными столбец с данными 2003, или лента «Только видимые ячейки».
«Найти и выделить». таблица. числа, формулы, текст ячейки, выполните несколько
(или нажмите клавиши видимые ячейки. По ответ на вопрос. чтобы прикрутить как-то пробовал копировать толькоRulsan
6) почти в (ну а далее Cells(i, c).Select Selection.Copy данными сделать так,
и вставить в «главная» в 2007). Нажимаем «ОК». Теперь,
В появившемся спискеФормула и цифры вставились не во все
простых действий: CTRL+C). умолчанию Excel копирует Высота строки (а
в виде кнопок видимые ячейки, по: Привет всем. самом конце этого обычно). Cells(EndRow + 5, чтобы при их другой файл, чтобыКопиую отфильтрованный диапазон
не отменяя выделения, нажимаем на функцию
только в отфильтрованные строки таблицы, можноВыделите диапазонВыделите левую верхнюю ячейку скрытых или отфильтрованных скрытие строки — в ленту или
всякому, но вставляетПосоветуйте, пожалуйста, есть (см.п.5) списка кнопкаВопрос в другом. c).Activate ‘ Активируем вставке в отедельный скопировалось только то в буфер, при в первой ячейке «Выделение группы ячеек». строки. воспользоваться фильтром. Как

A1:A4 области вставки и ячейки не только просто установка её горячих клавиш, чтобы то оно подряд,

CyberForum.ru

Копирование отфильтрованного диапазона данных

 ли возможность в «ВыделитьВидемыеЯчейки»
Где найти кнопку последнюю строку _ столбец они вставлялись что видимо. А копировании дапзон выделяется столбца (у нас ЧтобыВторой способ. установить фильтр и. нажмите кнопку видимые ячейки. Если высоты в 0)
всегда была возможность а не в Excel или надстройке7) на нее «ВыделитьВидемыеЯчейки»? В Excel-2003 плюс 5 строк. с учетом фильтра, то когда копируешь бегущими муравьями. Снимаю – Е2) вводим

заполнить видимые ячейки вТакже отфильтруем данные. как фильтровать вНа вкладкеВставить

 это не является будет копироваться, только такого копирования-вставки. отфильтрованные. PLEX копирования данных нужно нажать левой

 ее можно найти If Not IsEmpty(Cells(EndRow то есть тольке как обычно оно этих муравьев «Esc» формулу, цифру, т.д. выделенных столбцах Excel В первой ячейке Excel, смотрите вHome

(или нажмите клавиши вас не устраивают, если копируется всяP.S.S. Ни разуgling из отфильрованного диапазона клавишей мыши, перетащить в настройках панелей + 5, c).Value) те данные которые вставляется со значениями и вставляю фрагмент Нажимаем сочетание клавиш, нажимаем сочетание клавиш

 пишем число, формулу, статье «Фильтр в

(Главная) нажмите кнопку Ctrl + V). выполните действия, описанные строка. То есть не делал, но: Можно такой вариант

 из столбца В и отпустить на управления. Then ‘ если видны нам и которые скрыты внутри.. из буфера. Вставляется «Ctrl» + «Enter». «Ctrl» + D. текст, т.д. Теперь, Excel». Но, чтобы
Find & SelectСовет: в этой статье, надо выделить не прочитал пост выше, использовать: Написать формулу в столбец А?
любой панели кнопокOlya1985 строка не пустая, не hidden.TimSha все как надо,В Excel ячейки И все выделенные если строк тысячи, вставить данные только(Найти и выделить) Чтобы скопировать выделенный фрагмент

planetaexcel.ru

Excel: Когда копирую отфильтрованные ячейки и вставляю их на другой лист, то вставляются также и скрытые фильтром ячейки

чтобы скопировать только
конкретные ячейки, а что можно сделать в А2 =B2;
В столбце В (лучше где-то в: Вопрос в другом. тогда… Do ActiveCell.Offset(1,Igor_Tr

: Только видимое и без скрытых строк. можно выделить цветом столбцы заполнятся данными то выделяем ячейки в видимые ячейки,

 и кликните по на другой лист видимые ячейки. Например строки полностью. в виде надстройки, копируете ячейку A2
на картинке на конце панели, чтоб Где найти кнопку 0).Select Loop Until: Sub Копировать_Отфильтрованное() Dim выделяем (см .скрин)…Как вариант «Специальная по поределенному условию, или формулой, как так: нажимаем клавиши нужны свои способы,Go To Special

или в другую

Источник

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

Сделайте следующее:

Выберем ячейки, которые нужно скопировать. Дополнительные сведения см. в статье Выбор ячеек, диапазонов, строк или столбцов на сайте.

Совет: Чтобы отменить выделение ячеек, щелкните любую ячейку на этом же.
Щелкните Главная > Найти и выделить, а затем выберите пункт Выделение группы ячеек.
Выберите параметр только видимые ячейки и нажмите кнопку ОК.
Щелкните Копировать (или нажмите клавиши CTRL+C).
Выберите левую верхнюю ячейку области вжатия и нажмите кнопку Вировать (или нажмите CTRL+V).

Совет: Чтобы скопировать выделенный фрагмент на другой лист или в другую книгу, щелкните вкладку другого листа или выберите другую книгу и выделите левую верхнюю ячейку области вставки.

Примечание: При копировании значения последовательно вставляются в строки и столбцы. Если область вставки содержит скрытые строки или столбцы, возможно, потребуется отобразить их, чтобы увидеть все скопированные данные.

При копировании и вставке видимых ячеек в диапазоне данных, который содержит скрытые ячейки или к которому применен фильтр, можно заметить, что скрытые ячейки вставляются вместе с видимыми. К сожалению, это нельзя изменить при копировании и вклеии диапазона ячеек в Excel в Интернете так как возможность в виде вметки только видимых ячеек недоступна.

Тем не менее, если отформатировать данные как таблицу и применить фильтр, можно скопировать и вставить только видимые ячейки.

Если не нужно форматировать данные как таблицу и установлено классическое приложение Excel, можно открыть книгу в нем, чтобы скопировать и вставить видимые ячейки. Для этого нажмите кнопку Открыть в Excel и выполните действия, которые можно сделать в окте Копирование и вкопка только видимых ячеек.

Источник

На чтение 2 мин. Просмотров 5.1k.

Что делает макрос: Часто, когда вы работаете с набором отфильтрованных данных, вы хотите скопировать отфильтрованные строки в новую книгу. Конечно, вы можете вручную скопировать эти строки, просто открыть новую книгу и вставить строки, а затем отформатировать вновь вставленные данные так, чтобы все столбцы подходили. Но если вы делаете это достаточно часто, вы можете использовать макрос, чтобы ускорить процесс.

Содержание

Как макрос работает
Код макроса
Как этот код работает
Как использовать

Как макрос работает

Этот макрос захватывает диапазон AutoFilter, открывает новую книгу, а затем вставляет данные.

Код макроса

Sub SkopirovatOtfiltrovannieStroki()
'Шаг 1: Проверить, есть ли на листе фильтр
If ActiveSheet.AutoFilterMode = False Then
Exit Sub
End If
'Шаг 2: Скопируйте отфильтрованный диапазон для новой книги 
ActiveSheet.AutoFilter.Range.Copy
Workbooks.Add.Worksheets(1).Paste
'Шаг 3: Столбцы приводим в соответствие по размеру
Cells.EntireColumn.AutoFit
End Sub

Как этот код работает

Шаг 1 использует свойство AutoFilterMode, чтобы проверить есть ли на листе автофильтры. Если нет, то мы выходим из процедуры.
Каждый объект AutoFilter имеет свойство Range. Это свойство Range возвращает строки, к которым применяется Автофильтр, то есть он возвращает только те строки, которые отображаются в отфильтрованном наборе данных. На шаге 2 мы используем метод копирования, чтобы захватить эти строки, а затем вставить строки в новую книгу. Обратите внимание, что мы используем Workbooks.Add.Worksheets, это говорит Excel вставить данные в первый лист вновь созданной книги.
Шаг 3 говорит Excel, чтобы размер столбцов соответствовал данным, которые мы только что вставили.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

Активируйте редактор Visual Basic, нажав ALT + F11.
Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
Выберите Insert➜Module.
Введите или вставьте код.

Источник

Советы по Excel
Функции Excel
Формулы Excel
Excel Диаграммы
Советы по словам
Советы по Outlook

Как сохранить отфильтрованные данные на новый лист / книгу в Excel?

При копировании отфильтрованного диапазона в Excel по умолчанию копируются только видимые ячейки, а затем мы можем вручную вставить его в новый рабочий лист. Однако высота строки и ширина столбца не зарезервированы. Следовательно, как сохранить отфильтрованные данные на новый лист или книгу и одновременно сохранить высоту строки и ширину столбца в Excel? Здесь мы познакомим вас с парой методов.

Сохраняйте отфильтрованные данные на новый лист с функциями копирования и вставки
Сохраняйте отфильтрованные данные на новый лист с помощью функции копирования и перемещения

Сохраняйте отфильтрованные данные на новый лист с функциями копирования и вставки

Обычно мы можем применить Копировать функции и Вставить функция для сохранения отфильтрованных данных напрямую в новый рабочий лист или книгу. Вы можете сделать следующее:
1. Создайте новый рабочий лист, щелкнув значок Добавить кнопка or на панели вкладок листа.

Ноты:
(1) Нажатие Shift + F11 одновременно с клавишами можно также создать новый рабочий лист.
(2) Если вы собираетесь сохранить отфильтрованные данные в новую книгу, просто нажмите Ctrl + N клавиши одновременно, чтобы создать новую книгу.

2. Выберите отфильтрованные данные и скопируйте их, нажав Ctrl + C одновременно.

3. Перейдите к новому листу или книге, выберите пустую ячейку и нажмите Ctrl + V одновременно клавиши, чтобы вставить отфильтрованные данные.

Затем вы увидите, что только отфильтрованные данные копируются и вставляются в новый рабочий лист / книгу. Однако высота строки и ширина столбца теряются. См. Снимки экрана ниже:

Простое разделение диапазона на основе критериев в столбце и сохранение разделенных диапазонов на новых новых листах

Kutools for ExcelАвтора Разделить данные Утилита может помочь пользователям Excel легко разделить диапазон на несколько листов на основе критериев в одном столбце исходного диапазона.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Сохраняйте отфильтрованные данные на новый лист с помощью функции копирования и перемещения

Если отфильтрованные данные слишком велики, чтобы их можно было легко выбрать и скопировать, и вы настроили ширину столбцов и высоту строк для многих столбцов и строк, копирование и вставка может быть не лучшим решением. В этих условиях следует попробовать Kutools for Excel’s Удалить скрытые (видимые) строки и столбцы утилита.

1. Щелкните правой кнопкой мыши имя листа, который содержит отфильтрованные данные, на панели вкладок листа и выберите Переместить или скопировать из контекстного меню.

Шаг 2. Во всплывающем диалоговом окне «Перемещение или копирование» укажите книгу в Переместить выбранные листы в книгу раскрывающийся список, проверьте Создать копию и нажмите OK кнопку.

Внимание: Чтобы сохранить отфильтрованные данные на новом листе, выберите имя текущей книги в Переместить выбранные листы в книгу раскрывающийся список; чтобы сохранить отфильтрованные данные в новую книгу, выберите (новая книга).

3. Теперь вы попадете в новый рабочий лист / книгу, нажмите Кутулс > Удалить > Удалить скрытые (видимые) строки и столбцы, а затем в открывшемся диалоговом окне

(1) Выберите В активном листе в Заглянуть раскрывающийся список;
(2) Проверить Ряды вариант в Удалить тип раздел;
(3) Проверить Скрытые строки вариант в Подробный тип раздел;
(4) Щелкните значок Ok кнопку.

Если существует слишком много скрытых строк, на удаление всех скрытых строк потребуется несколько минут. Когда удаление завершится, появится диалоговое окно с сообщением, сколько скрытых строк было удалено, просто нажмите Ok чтобы закрыть его.

Теперь вы увидите, что все отфильтрованные данные зарезервированы на новом листе, а все форматирование ячеек, включая высоту строк и ширину столбцов, сохраняется.

Демонстрация: сохранение отфильтрованных данных на новый лист в Excel

Статьи по теме:

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Подписывайтесь на Нас

Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.

Источник

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

Добрый день!

Увы долгие скитания по форуму и отсутствие понимания кодов вынудило меня все же создать новую тему, т.к. много похожих тем но именно такой не нашел.
В общем ситуация следующая. Нужно что бы при изменении значений в листе «Ввод» в лист «Вывод» копировались полностью строки только те в которых имеется совпадение в столбце T:T с значениями фильтра в столбце A:A листа «Значения фильтра». В приложении краткий файл для понимания.

Для чего это нужно. Имеется база данных более 500 тыс. строк с регулярным обновлением, из которой нужно дублировать строки на другой лист только по одному критерию отбора. Единственная проблема в том что диапазон значений составляет 16 тысяч значений(В примере только 2) и фильтровать в ручную большая проблема. Если сможете помочь, буду крайне признателен.

Прикрепленные файлы

Пример.xlsx (11.93 КБ)

Изменено: Vartan — 07.01.2016 13:07:21

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

07.01.2016 12:34:20

Цитата
Vartan написал: совпадение в столбце S:S

Ничего не перепутали?

Vartan Пользователь Сообщений: 13 Регистрация: 06.01.2016	Спасибо за поправку, действительно перепутал по столбцу T:T

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	По кнопке устроит или нужно автоматом?

Vartan Пользователь Сообщений: 13 Регистрация: 06.01.2016	Нужно автоматом при обновлении данных в вкладке «Ввод».

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	См. вариант. Событием для срабатывания макроса будет являться активация листа «Вывод».

Vartan Пользователь Сообщений: 13 Регистрация: 06.01.2016

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Забыл в коде добавить отключение обновление экрана: на больших объёмах ускорит работу макроса. Справитесь сами? )

Vartan Пользователь Сообщений: 13 Регистрация: 06.01.2016	Начал фильтровать по 16и тысячам строк значений и все повисло))) Боюсь сам я ничего пока не могу сделать, нужна будет все же помощь в решении этого. Не успел правда посмотреть чистит ли он страницу до обновления или нет?

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#10

07.01.2016 14:23:30

Цитата
Vartan написал: Не успел правда посмотреть чистит ли он страницу до обновления или нет?

Сначала весь диапазон (кроме заголовка) очищается, затем заполняется новым данными.
Почему повисло — не знаю. 16 000 — это количество значений для выборки?

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

Да. Т.е. помимо огромного массива в вводных, нужно отфильтровать и скопировать по огромному массивы значений и я как понимаю система подзагружается прилично, хотя если делать все в одном листе автофильтром по тому же списку, все фильтруется быстрее.

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Можно изменить алгоритм: внешний цикл по большому диапазону (будет однократный перебор), а вложенный цикл по массиву данных из столбца А первого листа.
Можно вообще сделать всё на массивах, но не знаю — хватит ли памяти: 500 000 строк и 50 столбцов.

SuperCat

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#13

07.01.2016 14:29:42

А так?

Код

Sub DoFilter()
    With Sheets("Значения фильтра")
        Sheets("ввод").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1").End(xlDown), Sheets("Вывод").Range("A1")
    End With
End Sub

There is no knowledge that is not power

SuperCat

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

#14

07.01.2016 14:35:38

Сорри, немного ошибся

Код

Sub DoFilter()
    With Sheets("Значения фильтра")
        Sheets("ввод").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1", .Range("A1").End(xlDown)), Sheets("Вывод").Range("A1")
    End With
End Sub

There is no knowledge that is not power

Vartan Пользователь Сообщений: 13 Регистрация: 06.01.2016	В общем думал выйдет быстрее, но вышло наоборот комп завис наглухо с макросом %) Изменено: Vartan — 07.01.2016 17:14:12

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

#16

07.01.2016 17:13:22

Цитата

Юрий М написал:
Можно изменить алгоритм: внешний цикл по большому диапазону (будет однократный перебор), а вложенный цикл по массиву данных из столбца А первого листа.
Можно вообще сделать всё на массивах, но не знаю — хватит ли памяти: 500 000 строк и 50 столбцов.

Задача на самом деле стояла ускорить процесс т.к. по примитивным формулам Excel считает сутки подобный массив, но вам виднее что в этой ситуации было бы наиболее эффективно. После интеграции в нужный файл код выглядит следующим образом:

Код

Private Sub Worksheet_Activate()
Dim LastRow As Long, FreeRow As Long, i As Long, j As Long, Arr()
    LastRow = Cells(Rows.Count, 14).End(xlUp).Row
    Range(Cells(4, 14), Cells(LastRow + 1, 55)).ClearContents
    FreeRow = 2
    With Sheets("Вводные")
        LastRow = .Cells(Rows.Count, 14).End(xlUp).Row
        Arr = .Range(.Cells(4, 14), .Cells(LastRow, 14)).Value
    End With
    With Sheets("С начала месяца по вчер.день")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To UBound(Arr)
            For j = 2 To LastRow
                If .Cells(j, 19) = Arr(i, 1) Then
                    Range(Cells(FreeRow, 1), Cells(FreeRow, 55)).Value = .Range(.Cells(j, 1), .Cells(j, 55)).Value
                    FreeRow = FreeRow + 1
                End If
            Next

Код

Sub DoFilter()
    With Sheets("Значения фильтра")
        Sheets("ввод").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1", .Range("A1").End(xlDown)), Sheets("Вывод").Range("A1")
    End With
End Sub

Прошу прощения, а можно расшифровать что это за скрипт?

Изменено: Vartan — 07.01.2016 17:14:42

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Макрос от СуперКота — это расширенный фильтр с копированием результата на другой лист.
Мой макрос — перебор строк циклом.
У СуперКота должно быть гораздо быстрее, но вот только не знаю, как фильтр будет вести себя с 500 000 строк.

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

Действительно, у Супер Кота все работает гораздо быстрее даже с большого массива, но только он переносит на страницу «Вывод» только значения столбца по которому идет выборка, а нужно что бы копировалась вся строка где имеется значение совпадающее с тем что в «Значениях фильтра». Как в таком случае будет правильно?

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#19

07.01.2016 17:55:38

Цитата
[QUOTE]Vartan написал: у Супер Кота все работает гораздо быстрее даже с большого массива

Цитата
[USER]Vartan написал: В общем думал выйдет быстрее, но вышло наоборот комп завис наглухо с макросом

Где истина? ))

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

#20

07.01.2016 18:11:11

У меня уже когнитивный диссонанс случился))) Целый день убил на поиск и попытку что-то написать) в итоге меня Excel шлет куда подальше)

По первому(Вашему) коду все делает правильно, но слишком долго. По второму(Супер кота) все делает быстро, но у меня выходит что он тупо копирует все с одного листа на другой без выборки. В общем вышло у меня вот так, но осталось только научить это все активироваться по нажатию на кнопку, чистить перед применением и самое главное копировать выборочно а не все подряд))

Код

Sub DoFilter()
    With Sheets("Вводные")
        Sheets("С начала месяца по вчер.день").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1", .Range("A1").End(xlDown)), Sheets("Лист1").Range("A1")
    End With
End Sub

Немного поясню:
Список значений для фильтра находится на странице «Вводные» в диапазоне с N3:N16209
Динамическая база в вкладке «С начала месяца по вчер.день» так же как и в примере вкладка «Ввод»
А копировать нужно в «Лист1», в примере это «Вывод»

Прикрепил бы файл, да только он тяжелый слишком.

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#21

07.01.2016 18:14:12

Цитата
Vartan написал: По первому(Вашему) коду все делает правильно, но слишком долго.

Попробуйте второй вариант (см. файл), о котором я говорил. Но на больших объёмах и должно быть не быстро. Но в любом случае быстрее, чем вручную ))
P.S. Код прокомментировал.

Прикрепленные файлы

Выборка по фильтрам 02.xlsm (21.9 КБ)

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#22

07.01.2016 18:17:44

Доброе время суток

Цитата
Vartan написал: Действительно, у Супер Кота все работает гораздо быстрее даже с большого массива

Быстрее то оно быстрее. У меня на тестовом массиве 25 числовых столбцов, 25 текстовых, 500000 строк, Excel 2010 32bit макрос с .AdvancedFilter копировал около 7 минут.
Скрипт на Power Query отфильтровал за 29 секунд . Думаю, вариант на SQL запросе будет где-то также работать. Если что завтра выложу вариант.

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

Кнопка цитирования не для ответа [МОДЕРАТОР]

Мне такие слова мама не разрешает говорить «SQL»,»Power Query»
Пока не понятно, но если сможете помочь адаптировать мою БД, вы будете просто мой кумир, т.к. все расчеты в файле ведутся более 10 минут в среднем, что значительно тормозит работу.

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	За какое время отрабатывает мой второй вариант на Ваших данных?

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#25

07.01.2016 18:55:16

Цитата
Vartan написал: Мне такие слова мама не разрешает говорить «SQL»,»Power Query»

Я так подозреваю, что это вы не верно интерпретируете извечные материнские слова «Учись сынок, не то…» .
Вариант на Power Query. Пополняете таблицу на листе «Ввод», данные для фильтрации «Значения фильтра», в обоих случаях не трогая заголовки. На листе «Вывод» вкладка «Дата» — Обновить.
Для справки, Power Query надстройка в Excel 2010 Pro Plus sp1 и 2013, в 2016 — встроена в систему.

Успехов.
P. S. На моих тестовых данных MS Query не смог загрузить исходную таблицу
Юрий М. А почему бы не занести данные для фильтра в словарь? Гораздо же быстрее будет вместо в среднем
8000 * 500000 просмотров будет
14 * 500000 просмотров в 753 раза быстрее будет поиск.

Прикрепленные файлы

test_bigData.xlsx (32.08 КБ)

Изменено: Андрей VG — 07.01.2016 19:05:12

Пользователь

Сообщений: 2186
Регистрация: 01.01.2013

#26

07.01.2016 20:19:57

А если код от СуперКота изменить вот так? Пардон если что — правил на коленке (уже протестировал )

На всякий случай:
1. заголовок фильтра должен точно совпадать с заголовком фильтруемого столбца на листе Ввод
2. на листе Вывод, в первой строке должны присутствовать все те заголовки с листа Ввод, которые нужно вывести (порядок и кол-во произвольные)
3. Сразу оговорюсь: синтаксис работы с диапазонами изменил не из выпендрежа, а чтобы удобно было менять — у меня VBA шрифт настроен не на кириллицу. Плюс в конструкции With…End With стало меньше смысла.

Код

Sub DoFilter()
    Dim wsIn As Worksheet, wsOut As Worksheet, wsFilter As Worksheet
    Set wsIn = Worksheets("ввод")
    Set wsOut = Worksheets("Вывод")
    Set wsFilter = Worksheets("Значения фильтра")
  
    wsIn.Range("A1").CurrentRegion.AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=wsFilter.Range(wsFilter.Cells(1, "A"), wsFilter.Cells(wsFilter.Rows.Count, "A").End(xlUp)), _
        CopytoRange:=wsOut.Range(wsOut.Cells(1, "A"), wsOut.Cells(1, wsOut.Columns.Count).End(xlToLeft))
End Sub

Изменено: KL — 07.01.2016 20:43:57

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Андрей, со словарями не дружу — никак руки не доходят разобраться с ними )
Я изначально хотел вообще всё на массивах сделать, но засомневался: исходный диапазон 500 000 х 50, да ещё и параллельный (для выгрузки) изначально такой же. Вот и не знаю — хватит ли памяти? ) Если хватит, то думаю, что достаточно быстро должно отработать.

Vartan

Пользователь

Сообщений: 13
Регистрация: 06.01.2016

Всем огромное спасибо!

Сделал пока по проще по примеру Супер Кота массив обработался за 2 минуты, дальше буду изучать может сделаю что по автоматизированее

Юрий, увы макросы 1 и 2 примера вешали комп на глухо, так что пришлось пойти по простейшим путям.

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Вас не поймёшь: то долго, а теперь «вешают наглухо» )) А вариант Кирилла пробовали?

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#30

08.01.2016 11:40:02

Доброе время суток

Цитата
Юрий М написал: со словарями не дружу — никак руки не доходят разобраться с ними )

А зря не доходят. У меня вариант на словаре и копированием по Union 1000 строк отработал за 23 секунды. И на стареньком netbook Lenovo U165 — 72 секунды.

Источник