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​​ меня намного больше​

   

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

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

   

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

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

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

support.office.com

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

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

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

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

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

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

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

​ — Выделить… -Только​​ что нужно, огромное​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​

​ или в другую​

Расскажи друзьям, если статья оказалась полезной:

    Видеоинструкции по использованию надстройки MulTEx

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

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

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

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

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

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

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

Такой способ подойдет и для ввода значений и для ввода формул. Например, если скидка для «Ашанов» не фиксированная, а составляет 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

Skip to content

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