Как копировать ячейки с фильтром excel

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

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

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

​ Но файл у​

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

    ​Visible cells only​​ выберите другую книгу​ из структурированных листа.​ можно оперативнее обеспечивать​

  2. ​ каждом файле) кнопки​​ скрыты не изменятся,​​ скрыты.​​ настройки.​​ управления.​ Else ActiveSheet.Paste Application.CutCopyMode​​ As Integer Dim​​ меня намного больше​

    Изображение ленты Excel

  3. ​: Офигеть, все получилось.​​ это сделать, в​​ в ячейку D2​​ вверх, зависит от​​обычный​

  4. ​(Только видимые ячейки)​​ и выделите левую​​Сделайте следующее:​ вас актуальными справочными​

    Команда

  5. ​ сделать пока не​ Но в выделенных​Я пока решаю​​После вышеописанных действий​​А где именно?​ = False End​

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

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

support.office.com

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

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

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

Копируем видимые ячейки в Excel

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

Копируем видимые ячейки в Excel

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

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

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

Копируем видимые ячейки в Excel

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

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

office-guru.ru

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

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

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

​ этого:​​ Находим последнюю строку​ точка_с_запятой​в чем может​: Сталкивался с такой​ Нажимаем кнопку «Выделить…».​ вызвать диалоговое окно​ в ячейке С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 копирует не только видимые, но и скрытые или фильтрованные ячейки. Если же требуется скопировать только видимые ячейки, выполните действия, описанные ниже. Например, можно скопировать только суммарные данные со структурного таблицы.

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

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

    Совет: Чтобы отменить выделение ячеек, щелкните любую ячейку на этом же.

  2. Щелкните Главная > Найти и выделить, а затем выберите пункт Выделение группы ячеек.

    Excel  Ribbon Image

  3. Выберите параметр только видимые ячейки и нажмите кнопку ОК.

  4. Щелкните Копировать (или нажмите клавиши CTRL+C).

    Команда "Копировать"

  5. Выберите левую верхнюю ячейку области вжатия и нажмите кнопку Вировать (или нажмите CTRL+V).

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

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

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

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

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

Как скопировать результат поиска в таблице Excel

как скопировать результат поиска в Excel

Нужно искать через фильтр или условное форматирование.

Фильтр

1. Выделяем столбец и жмём «Сортировка и фильтр» → включаем фильтр.

как скопировать результат поиска в Excel

2. Разворачиваем окно фильтра и в поле поиска указываем запрос. Я ищу https:// в столбце URL.

как скопировать результат поиска в Excel

3. Программа выдаёт список результатов поиска, который можно скопировать и использовать для дальнейшей работы.

как скопировать результат поиска в Excel

Форматирование

1. Выделяем столбец и жмём «Условное форматирование» → Правила выделения ячеек → Текст содержит…

как скопировать результат поиска в Excel

2. Указываем запрос. Я ищу https://

как скопировать результат поиска в Excel

3. Программа подсвечивает светло-красным цветом нужный результат, который можно скопировать.

Как скопировать список из фильтра в эксель

Откройте оба файла в одном процессе, через команду Открыть.

Если не поможет, прикладывайте файл и подробно описывайте Ваши действия

Откройте оба файла в одном процессе, через команду Открыть.

Если не поможет, прикладывайте файл и подробно описывайте Ваши действия Pelena

Сообщение Откройте оба файла в одном процессе, через команду Открыть.

Если не поможет, прикладывайте файл и подробно описывайте Ваши действия Автор — Pelena
Дата добавления — 01.09.2014 в 16:32

Переместить фильтр

Команда копирует фильтр из одной таблицы и переносит его на любую другую таблицу, сохраняя все условия фильтрации. Для чего это может быть нужно? Предположим, имеется таблица:
Пример таблицы с фильтром
В ней отфильтрованы данные по трем столбцам: Контрагент, Отсрочка платежа дни, Штрафы за просрочку оплаты. При этом из более чем 80-ти контрагентов отобрано фильтром только 25 необходимых, для отсрочки платежа установлено условие не показывать строки с просрочкой 25 дней и менее, а для штрафов — не показывать строки с суммами меньше или равные 1000р.
Ситуация1: точно такие же условия надо применить к такой же таблице, но за другие периоды. Вручную придется в другой таблице заново выбирать всех контрагентов и проставлять условия на другие столбцы.
Ситуация2: в таблицу необходимо добавить еще один столбец — Условия предоставления кредитного лимита. И поверх прежних условий фильтрации применить фильтр еще и по новому столбцу. Вручную придется сначала полностью убрать фильтр с листа, добавить столбец, установить фильтр заново и прописать все условия. Никак по-другому не получится(если только речь не об умной таблице — Вставка -Таблица).
С помощью команды Переместить фильтр обе ситуации становятся решаемыми очень просто. Все, что необходимо — выделить диапазон с нужным фильтром, перейти на вкладку MulTEx -группа Ячейки/ДиапазоныДиапазоныПереместить фильтр:
Перенести фильтр

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

И распространить эти условия на диапазон: указывается диапазон ячеек вместе с заголовком, к которому необходимо применить скопированные условия фильтрации.
Если столбцов в новом диапазоне меньше, чем в скопированном фильтре — то в новую таблицу будут перенесены условия первых n столбцов скопированного фильтра, где n — количество столбцов в новой таблице. Если столбцов больше — фильтр будет установлен на все указанные столбцы.
Если условия скопированного фильтра необходимо распространить на умную таблицу(Вставка (Insert)Таблица (Table) ), то в поле И распространить эти условия на диапазон допускается указать одну любую ячейку внутри этой таблицы. Границы такой таблицы будут определены автоматически.

Skip to content

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

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

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как этот код работает
  4. Как использовать

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

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

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

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

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

@NSK-Mar 

As others have stated, Excel does not allow you to paste into a filtered data. The best way to do this is to sort instead of filter. The easiest way to do this, especially for information that is not easily sortable, is to:

— filter your info

— fill the cells of your filtered list with a color

— Clear the filter

— do a custom sort of the list by color and then by a-z (to make it match up with the information you are pasting in)

— Paste your information in your sheet

— Reorder the colors from your cells and reorder the information if necessary.

Note: If the original order of your information is important, do what one user suggested and add a column to your original sheet and number each row, so you can resort back to its original order.

Also, if you are working with extremely large lists where you first have to identify the matching cells before copying over the information, you can always use conditional formatting to identify and highlight any matching cells in a column from one sheet to another within the same workbook. After doing this, you can then follow the steps above to copy the information over. 

Вставка в отфильтрованные строки

Весьма распространенная ситуация, вопрос про которую мне задают почти на каждом тренинге. Есть таблица, в которой Фильтром (Данные — Фильтр) отобраны несколько строк. Задача — вставить какие-либо нужные нам значения именно в видимые отфильтрованные строки, пропуская при этом скрытые. Обычное копирование-вставка при этом не сработает, т.к. данные вставятся не только в видимые, но и в скрытые ячейки. Давайте посмотрим, как можно обойти эту проблему.

Способ 1. Вставка одинаковых значений или формул

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

paste-to-visible1.png

… и в нем нужно поставить фиксированную скидку в 1000 рублей каждому «Ашану».

Фильтруем наш список Автофильтром, оставляя на экране только «Ашаны». Вводим нужное значение в первую ячейку и протягиваем (копируем за правый нижний угол ячейки) вниз:

paste-to-visible2.png

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

paste-to-visible3.png

Такой способ подойдет и для ввода значений и для ввода формул. Например, если скидка для «Ашанов» не фиксированная, а составляет 10% от суммы сделки, то в первую отфильтрованную строку можно ввести не константу (1000), а формулу (=C2*10%) и также скопировать вниз.

Способ 2. Макрос вставки любых значений

Другое дело, если вам необходимо вставить в отфильтрованные ячейки не одинаковые значения или формулы, а разные, да еще и брать их из другого диапазона. Тогда придется использовать несложный макрос. Нажмите сочетание клавиш Alt+F11, в открывшемся окне Visual Basic вставьте новый пустой модуль через меню Insert — Module и скопируйте туда этот код:

Sub PasteToVisible()
    Dim copyrng As Range, pasterng As Range
    Dim cell As Range, i As Long
 
   'запрашиваем у пользователя по очереди диапазоны копирования и вставки
    Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
    Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
 
    'проверяем, чтобы они были одинакового размера
    If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <> copyrng.Cells.Count Then
        MsgBox "Диапазоны копирования и вставки разного размера!",vbCritical
        Exit Sub
    End If
 
    'переносим данные из одного диапазона в другой только в видимые ячейки
    i = 1
    For Each cell In pasterng
        If cell.EntireRow.Hidden = False Then
            cell.Value = copyrng.Cells(i).Value
            i = i + 1
        End If
    Next cell
End Sub

Как легко сообразить, макрос запрашивает у пользователя по очереди два диапазона — копирования и вставки. Затем проверяет, чтобы их размеры совпадали, т.к. разница в размерностях вызовет впоследствии ошибку при вставке. Затем макрос перебирает все ячейки в диапазоне вставки и переносит туда данные из диапазона копирования, если строка видима (т.е. не отфильтрована).

Ссылки по теме

  • Что такое макросы, как их использовать, куда вставлять код макроса на Visual Basic

Понравилась статья? Поделить с друзьями:
  • Как копировать ячейки в excel с макросами
  • Как копировать ячейки в excel на весь столбец
  • Как копировать ячейки в excel без изменения формул
  • Как копировать ячейки в excel vba
  • Как копировать ячейки в excel 2016