Как вставить значения в отфильтрованный диапазон excel

• Чтобы отфильтровать диапазон списка, скрыв строки, не отвечающие условиям, выберите вариант Фильтровать список на месте.
• Чтобы отфильтровать список, скопировав строки, не отвечающие условиям, в другую область листа, выберите вариант Скопировать результат в другое место, щелкните в поле Поместить результат в диапазон, а затем щелкните левый верхний угол области, в которой нужно вставить строки. Совет При копировании отфильтрованных строк в другое место можно указать, какие столбцы следует включить в операцию копирования. Перед фильтрацией скопируйте нужные названия столбцов в первую строку области, в которую вы собираетесь вставить отфильтрованные строки. При применении фильтра введите ссылку на скопированные названия столбцов в поле Поместить результат в диапазон. Тогда скопированные строки будут включать только те столбцы, названия которых вы скопировали.

Несколько условий, несколько столбцов, все условия истинны

Логическое выражение: (Тип = «Фрукты» И Продажи > 1000)

1. Вставьте как минимум три пустые строки над диапазоном списка, которые можно использовать в качестве диапазона условий. Диапазон условий должен включать названия столбцов. Убедитесь, что есть по крайней мере одна пустая строка между значениями условий и диапазоном списка.
2. Чтобы найти строки, отвечающие нескольким условиям в нескольких столбцах, введите все условия в одной строке диапазона условий. Используя пример, введите:

• Чтобы отфильтровать диапазон списка, скрыв строки, не отвечающие условиям, выберите вариант Фильтровать список на месте.
• Чтобы отфильтровать список, скопировав строки, не отвечающие условиям, в другую область листа, выберите вариант Скопировать результат в другое место, щелкните в поле Поместить результат в диапазон, а затем щелкните левый верхний угол области, в которой нужно вставить строки. Совет При копировании отфильтрованных строк в другое место можно указать, какие столбцы следует включить в операцию копирования. Перед фильтрацией скопируйте нужные названия столбцов в первую строку области, в которую вы собираетесь вставить отфильтрованные строки. При применении фильтра введите ссылку на скопированные названия столбцов в поле Поместить результат в диапазон. Тогда скопированные строки будут включать только те столбцы, названия которых вы скопировали.

Несколько условий, несколько столбцов, любое из условий истинно

Логическое выражение: (Тип = «Фрукты» ИЛИ Продавец = «Грачев»)

1. Вставьте как минимум три пустые строки над диапазоном списка, которые можно использовать в качестве диапазона условий. Диапазон условий должен включать названия столбцов. Убедитесь, что есть по крайней мере одна пустая строка между значениями условий и диапазоном списка.
2. Чтобы найти строки, отвечающие нескольким условиям в нескольких столбцах, где любое условие может быть истинным, введите эти условия в разных строках диапазона условий. Используя пример, введите:

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

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

Несколько наборов условий, один столбец во всех наборах

Логическое выражение: ( (Продажи > 6000 И Продажи < 6500 ) ИЛИ (Продажи < 500) )

1. Вставьте как минимум три пустые строки над диапазоном списка, которые можно использовать в качестве диапазона условий. Диапазон условий должен включать названия столбцов. Убедитесь, что есть по крайней мере одна пустая строка между значениями условий и диапазоном списка.
2. Чтобы найти строки, отвечающие нескольким наборам условий, каждый из которых содержит условия для одного столбца, используйте несколько столбцов с одинаковым заголовком. Используя пример, введите:

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

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

Несколько наборов условий, несколько столбцов в каждом наборе

Логическое выражение: ( (Продавец = «Егоров» И Продажи > 3000) ИЛИ (Продавец = «Грачев» И Продажи > 1500) )

1. Вставьте как минимум три пустые строки над диапазоном списка, которые можно использовать в качестве диапазона условий. Диапазон условий должен включать названия столбцов. Убедитесь, что есть по крайней мере одна пустая строка между значениями условий и диапазоном списка.
2. Чтобы найти строки, отвечающие нескольким наборам условий, каждый из которых содержит условия для нескольких столбцов, введите каждый набор условий в отдельных столбцах или строках. Используя пример, введите:

• Чтобы отфильтровать диапазон списка, скрыв строки, не отвечающие условиям, выберите вариант Фильтровать список на месте.
• Чтобы отфильтровать список, скопировав строки, не отвечающие условиям, в другую область листа, выберите вариант Скопировать результат в другое место, щелкните в поле Поместить результат в диапазон, а затем щелкните левый верхний угол области, в которой нужно вставить строки. Совет При копировании отфильтрованных строк в другое место можно указать, какие столбцы следует включить в операцию копирования. Перед фильтрацией скопируйте нужные названия столбцов в первую строку области, в которую вы собираетесь вставить отфильтрованные строки. При применении фильтра введите ссылку на скопированные названия столбцов в поле Поместить результат в диапазон. Тогда скопированные строки будут включать только те столбцы, названия которых вы скопировали.

Условия с подстановочными знаками

Логическое выражение: Продавец = имя со второй буквой «г»

1. Чтобы найти текстовые значения с совпадающими знаками в некоторых из позиций, выполните одно или несколько действий, описанных ниже.
2. Чтобы найти строки, в которых текстовое значение в столбце начинается с определенной последовательности знаков, введите эти знаки, не используя знак равенства (=). Например, если ввести условие Бел, будут найдены строки с ячейками, содержащими слова «Белов», «Беляков» и «Белугин».
3. Воспользуйтесь подстановочными знаками.

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

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

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

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

​Смотрите также​: Лена, у Вас​ ​solotze​​ на клавиатуре не​ нужно нажать левой​ диапазон.​ фильтра», _ Title: , _ Default:=ActiveCell.Value)​Tviga​ с помощью заполнения?​
​ которые я фильтранул. ​ If ‘переносим данные​ для ввода значений​ задают почти на​ отфильтрованные данные и​ помощью фильтра или​ в первой ячейке.​ строки.​ строки в​ ОпенОфис. Там это​ была активна, надо​еще вот это​ и отпустить на​ «ВыделитьВидемыеЯчейки».​ Selection.AutoFilter Field:=1, Criteria1:=a​: вобщем так.​Тогда нужно сделать​ВОПРОС как вставить​
​ из одного диапазона​
​ и для ввода​ каждом тренинге. Есть​
​ в скрытые фильтром​ сортировки. Теперь их​ В нашем примере,​
​Второй способ.​
​Excel​ вообще не нужно​ еще куда нажать​ нашла​ любой панели кнопок​3) Начать копирование​ c = ActiveCell.Column​не совсем понятно​ так: отфильтровать столбец,​ в те которые​ в другой только​ формул. Например, если​ таблица, в которой​ строки. Вообщем, получится​ нужно распечатать или​ мы написали число800​
​Также отфильтруем данные.​числа, формулы, текст​ — фильтруете ячейки,​такаюсь уже пол​Меню​ (лучше где-то в​ (ну а далее​ EndRow = ActiveSheet.UsedRange.Row​ как завязаны между​ выделить диапазон ячеек,​ отфильтрованы. ​​ в видимые ячейки​ скидка для «Ашанов»​

​ Фильтром (​ каша.​ перенести в другое​ в ячейку D2​ В первой ячейке​ можно несколькими способами.​ выделяете всю кучу​ дня в эту​Правка​ конце панели, чтоб​ обычно).​​ — 1 +​ собой листы. Нет​​ которые хотим заполнить,​(можно скопировать отфильтрофанные​ i = 1​ не фиксированная, а​Данные — Фильтр​Второй способ.​ место.​ столбца D. Немного​ пишем число, формулу,​ Когда нужно вставить​ сразу и, не​ кнопку​Перейти​ логику панели не​Вопрос в другом.​ _ ActiveSheet.UsedRange.Rows.Count ‘​ никаких одинаковых данных.​ затем в диалоговом​ данные на новый​ For Each cell​ составляет 10% от​
​) отобраны несколько строк.​
​Таблица та же.​Копирование в Excel​ не по теме,​ текст, т.д. Теперь,​ числа, формулы, текст​ задумываясь о плохом,​может есть еще​Выделить​ ломать).​ Где найти кнопку​ Находим последнюю строку​ Куча повторяющихся значений.​ окне ВЫДЕЛЕНИЕ ГРУППЫ​ лист «вставить значения»​ In pasterng If​ суммы сделки, то​ Задача — вставить​ Выделить таблицу с​настроено так, что​ но хочется сказать​
​ если строк тысячи,​ не во все​ просто вставляете в​ какой вариант?​Только виденные ячейки​8) закрыть панель​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ _ рабочей области​ Кодов нет. Из​ ЯЧЕЕК поставить переключатель​

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

​ — далее добавить​ cell.EntireRow.Hidden = False​ в первую отфильтрованную строку​ какие-либо нужные нам​ отфильтрованными данными. На​ копируются и скрытые​ здесь. Сочетание клавиш​​ то выделяем ячейки​​ строки таблицы, можно​ нужное место.​solotze​
​Копировать​​ настройки.​​ ее можно найти​ For i =​
​ того что было​
​ ТОЛЬКО ВИДИМЫЕ ЯЧЕЙКИ,​ столбец, НО тогда​​ Then cell.Value =​ можно ввести не​
​ значения именно в​ закладке «Главная» нажимаем​
​ ячейки.​ «Ctrl» + R​ так: нажимаем клавиши​
​ воспользоваться фильтром. Как​igrtsk​:​
​Вставить​После вышеописанных действий​ в настройках панелей​ 1 To EndRow​ предложено могу только​ ввести нужное значение​
​ нарушается последовательность списка​ copyrng.Cells(i).Value i =​ константу (1000), а​ видимые отфильтрованные строки,​
​ в разделе «Редактирование»​​Рассмотрим два способа,​ – копирует данные​ «Ctrl» + «Shift»​ установить фильтр и​: А я уже​Ну, попробуйте тогда Сервис-Настройка-Команды,​но не могу​ кнопка «ВыделитьВидемыеЯчейки» будет​ управления.​ If Cells(i, c).Value​ так. Вставить пару​ и нажать +.​ ЗАГОЛОВКИ ПОДПУНКТЫ с​ i + 1​ формулу (=C2*10%) и также скопировать вниз.​ пропуская при этом​ ​ кнопку​
​к​ по строке Excel​ + кнопку (стрелочку)​ как фильтровать в​ грешным делом подумал,​ в категории «Правка»​​ все это найти​ там куда вы​​Olya1985​ = a Then​ столбцов. И формулу.​ В этом случае​ текстом описанием и​ End If Next​Другое дело, если вам​ скрытые. Обычное копирование-вставка​функции «Найти и выделить»​​ак копировать отфильтрованные строки​ (в нашем примере​ вниз (или кнопку​ Excel, смотрите в​ что тему затролили​ кнопка «Выделить только​ в компе. ​ ее перетащили и​: Вопрос в другом.​ Cells(i, c).Select Selection.Copy​
​ А больше не​​ заполнятся только видимые​ т.п. НУЖНО СОХРАНИТЬ​​ cell End Sub​ необходимо вставить в​ при этом не​ в Excel​ в Excel.​ – строка 2,​ вверх, зависит от​ статье «Фильтр в​solotze​ видимые ячейки».​Понимаю, что туплю,​ можно будет выполнить​

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

​ Где найти кнопку​ Cells(EndRow + 5,​ знаю как.​ ячейки.​ ЦЕЛОСТНОСТЬ. ) ХЕЛП. ​Как легко сообразить, макрос​​ отфильтрованные ячейки не​​ сработает, т.к. данные вставятся​. Затем, нажимаем кнопку​Первый способ.​ копировали число 800​ того, где хотим​ Excel». Но, чтобы​: что значит Опен-офис?​это вообще не​ но надо сделать. ​ все действия из​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ c).Activate ‘ Активируем​Вроде все сошлось.​Гость​Serge_007​

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

​ запрашивает у пользователя​ одинаковые значения или​ не только в​ «Перейти». В появившемся​Есть замечательная функция​ из ячейки D2).​ выделить ячейки –​ вставить данные только​ И как фильтровать?​

​ могу найти. Либо​ArkaIIIa​ моего предыдущего сообщения.​ ее можно найти​

​ последнюю строку _​http://zalil.ru/33260588​: Как вариант могу​: В Excel 2007/2010​ по очереди два​ формулы, а разные,​ видимые, но и​ диалоговом окне, нажимаем​

​ в Excel –​ Получилось так.​ ниже или выше​ в видимые ячейки,​solotze​ я туплю, либо​: Вы же всё​

​Кстати, если впоследствии​ в настройках панелей​ плюс 5 строк.​Olya1985​ скинуть вам файл,​ по умолчанию данные​ диапазона — копирования​ да еще и​ в скрытые ячейки.​ кнопку «Выделить…». В​функция «Специальная вставка» в​Третий способ.​

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

​ ячейки, в которой​ нужны свои способы,​: _Boroda_,​ версия компа чудная.​ сами написали.​ Вам будет нужно​ управления.​ If Not IsEmpty(Cells(EndRow​: Подскажите, пожалуйста, можно​ попробуете, если все​​ вставляются только в​​ и вставки. Затем​ брать их из другого​ Давайте посмотрим, как​ окне «Выделение группы​​ Excel.​​В новом столбце​ написали число).​

​ особенно, если много​Надо что бы​Не пойму в​1) Выделяете весь​ удалить какие-то кнопки​А где именно?​ + 5, c).Value)​ ли в excel​ получится буду благодарен. ​ отфильтрованные строки, что​ проверяет, чтобы их​ диапазона. Тогда придется использовать​ можно обойти эту​ ячеек» ставим галочку​Итак, у нас​ (в нашем примере​Теперь, или нажимаем​ строк.​ при копировании, скрытые​ чем дело.​ диапазон​ с панелей, то​Семен Казменко​ Then ‘ если​ 2003 после копирования​Гость​ бы вставить во​ размеры совпадали, т.к.​ несложный макрос. Нажмите​ проблему.​ у строки «только​ есть таблица.​ – столбец Е)​

​ сочетание клавиш «Ctrl»​Первый способ -​ ячейки (цветные), не​ArkaIIIa​2) Тыкаете F5​ их можно перетаскивать​: Расскажу только про​ строка не пустая,​ столбца с отфильтрованными​: новые данные вставляются​ все необходимо воспользоваться​ разница в размерностях​ сочетание клавиш​Если вам нужно вставить​ видимые ячейки». Нажимаем​Как установить фильтр, смотрите​ выделяем ячейки. Нажимаем​

Таблица Фильтрация ВСТАВКА -СРОЧНО НУЖНА ПОМОЩЬ.

​ + G, или​​обычный​ копировались.​
​: У меня, к​3) В появившемся​ в обратном порядке​ Excel-2003. Дома под​ тогда. Do ActiveCell.Offset(1,​
​ данными сделать так,​ не с помощью​ спецвставкой и поставить​ вызовет впоследствии ошибку​Alt+F11​ одни и те​ «ОК».​ в статье «Фильтр​ клавишу F5. Выйдет​ клавишу F5. Выйдет​.​igrtsk​
​ сожалению, нет под​ окне внизу кнопочка​ при наличии на​
​ рукой только он.​ 0).Select Loop Until​ чтобы при их​ заполнения, а копируются​ галку на «Пропускать​ при вставке. Затем​, в открывшемся окне​ же значения во​Теперь на этой же​ в Excel».​

​ диалоговое окно «Переход».​​ диалоговое окно «Переход».​Возьмем такую таблицу.​:​ рукой 2003 экселя.​ «выделить»​ экране окна «Настройка».​1) левой кнопкой мыши​ IsEmpty(ActiveCell.Value) ‘. находим пустую​ вставке в отедельный​

​ с нового листа. (при​​ пустые ячейки».​ макрос перебирает все​ Visual Basic вставьте​ все отфильтрованные строки​ выделенной таблице правой​Мы убираем фильтром​ Нажимаем кнопку «Выделить…».​ Нажимаем кнопку «Выделить…».​ Таблица будет одна​solotze​ Сделайте хотя бы​4) Ставите флажок​

​ Например, выбрали кнопку​​ по любой панели​ ячейку ниже ActiveSheet.Paste​ столбец они вставлялись​

​ протягивании все ок)​​Гость​
​ ячейки в диапазоне​ новый пустой модуль​ списка, то все​

​ мышкой вызываем контекстное​​ из списка всех​ И, в новом​ И, в новом​
​ для всех примеров.​,​ скрин шапки, что​ на «Только видимые​ «Сохранить» (дискетка) и​ кнопок (например, обычно​ Application.CutCopyMode = False​ с учетом фильтра,​Pelena​: Стоит 2007 . в​ вставки и переносит​ через меню​ просто. Предположим, что​

​ меню. Нажимаем функцию​​ Ивановых. Получилось так.​ диалоговом окне «Выделение​ диалоговом окне «Выделение​Уберем фильтром все цифры​

​Судя по расширению​​ у вас там​ ячейки»​ перетащили ее отпустив​ включена панель «Стандартная»).​ Else ActiveSheet.Paste Application.CutCopyMode​

​ то есть тольке​​: А у Вас​ том то и​
​ туда данные из​

​Insert — Module​​ у нас есть​
​ «Копировать». В новом​
​Выделяем таблицу, нажимаем в​ группы ячеек», ставим​ группы ячеек» ставим​ 2 из таблицы.​ файла (​
​ в менюшке верхней​5) Тыкаете ОК​

​ на окне «Настройка».​​2) в появившемся​ = False End​ те данные которые​ не получилось?​
​ дело что по​ диапазона копирования, если​и скопируйте туда​ вот такой список​ месте (в нашем​

​ контекстном меню «Копировать».​​ галочку у слов​
​ галочку у слов​ В оставшиеся видимые​.ods​ вообще есть.​6) У вас​Olya1985​ контекстном меню список​ If End If​ видны нам и​Выкладывайте файл​ умолчанию вставляет значения​ строка видима (т.е.​
​ этот код:​
​ сделок:​

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

​ примере – это​​ Нажимаем левой мышкой​ «Только видимые ячейки».​ «Только видимые ячейки».​ ячейки поставим цифру​) вы используете в​solotze​ автоматом выделяются только​: спасибо! у меня​ панелей экранных кнопок,​ Next i End​ не hidden.​Гость​ по порядку во​

​ не отфильтрована).​​Sub PasteToVisible() Dim​. и в нем нужно поставить​ ячейка А15) нажимаем​ ячейку А9, выбираем​ Нажимаем «ОК». Теперь,​Нажимаем «ОК». Затем вставляем​ 600. В ячейку​ работе не офисный​: F5 нашла как​ видимые ячейки, вы​ тоже excel 2003.​ в самом низу​ SubP.S. Мало данных​Igor_Tr​: вот сам файлик​ все скрытые строки​Гость​ copyrng As Range,​ фиксированную скидку в​ «Вставить». Всё. Получилось​ в контекстном меню​ не отменяя выделения,​ как обычно.​ В2 ставим число​ пакет от Microsoft​ функционирует. Высветилось окошко.​ их ctrl+с и​ а еще можно​ пункт «настройка». Выбрать​ — раз! Все​: Sub Копировать_Отфильтрованное() Dim​http://rghost.ru/38132320​ в столбце. а не​: Уважаемые знающие люди. помогите​ pasterng As Range​ 1000 рублей каждому​ так.​ «значения».​ в первой ячейке​Ещё один способ​ 600, затем копируем​ , а Open​ Но нет «выделить»​ куда нужно ctrl+v​ этот пункт добавить​ его.​ что выше можно​ a As Double​в лист «все​ в нужные отфильтрованные,​ плиз. ​ Dim cell As​ «Ашану».​
​Как, не копируя, сразу​Нажимаем «ОК». Вуаля. Скопировалось​ столбца (у нас​ вызвать диалоговое окно​

​ его вниз по​​ Office либо LibreOffice..​

​ArkaIIIa​​solotze​ в меню edit.​3) появится окно​ сделат массивом. Но​ Dim c As​
​ районы» в столбец​ побывал и спецвставкой​
​Суть есть список​ Range, i As​
​Фильтруем наш список Автофильтром,​напечатать данные фильтра в​ не только значение​
​ – Е2) вводим​ «Выделение группы ячеек».​ столбцу (тянем за​А рекомендации вам​:​: так и делаю,​

​solotze​​ «Настройка», там на​ я как-то​ Integer Dim r​ «Т» вставить значения​ с галкой «Пропускать​ из около 2000​
​ Long ‘запрашиваем у​

​ оставляя на экране​​ Excel​ видимых строк, но​ формулу, цифру, т.д.​
​ На закладке «Главная»​ правый нижний угол​ дают по MS​solotze​
​ не активна F5​: как в экселе​ вкладке «Команды» два​с массивами не​ As Integer Dim​ из листа «ИЗНОС»​
​ пустые ячейки». НЕ​ строк с огловлениями​ пользователя по очереди​ только «Ашаны». Вводим​
​, смотрите в статье​ и формат ячеек.​ Нажимаем сочетание клавиш​
​ в разделе «Редактирование»​ ячейки В2). Значения​ Office. По сему​
​Повторно. Не «видя»,​Pelena​ скопировать данные без​ списка.​
​ очень. А так​ i As Integer​ из столбца «N»​ ВЫХОДИТ. ​ пустыми строками . ​ диапазоны копирования и​ нужное значение в​ «Закладка листа Excel​Есть один нюанс​
​ «Ctrl» + «Enter».​ нажимаем на кнопку​
​ скопировались только в​ у вас и​ что у Вас​: F5 — функциональная​ скрытых ячеек​4) в правом​ — чем мог,​
​ Dim EndRow As​как то так​Гость​ и 15 столбцами​ вставки Set copyrng​ первую ячейку и​ «Разметка страницы»» здесь.​- вставлять отфильтрованные​В Excel ячейки​ «Найти и выделить».​ видимые ячейки. Точно​ нет тех самых​

​ там на экране​​ клавиша на клавиатуре.​нашла вот это​ списке выбрать категорию​ тем помог.​ Integer ‘как работает?​

Копирование в экселе (как скопировать без скрытых ячеек)

​ вот. ​​: Короче никто не​фильтрую по допустим​ = Application.InputBox(«Диапазон копирования»,​
​ протягиваем (копируем за​ Какие способы есть​​ данные не в​ можно выделить цветом​ В появившемся списке​ также можно вставлять​ меню и кнопок,​ происходит — помочь​​ Как она может​ -​ «Правка»​Olya1985​
​ _ ‘ Выделям​Pelena​
​ знает и никто​
​ 5 столбцу, получаю​
​ «Запрос», Type:=8) Set​
​ правый нижний угол​
​ ещё выделить только​
​ строки, где стоит​
​ по поределенному условию,​
​ нажимаем на функцию​ и формулы. Мы​ о которых говорят​
​ Вам очень трудно.​ быть не активна?​

​Выделяете диапазон — F5​​5) в левом​: хорошо. спасибо!​
​ ячейку с нужным​: Файл пока не​
​ не поможет. ​
​ список из 560​ pasterng = Application.InputBox(«Диапазон​ ячейки) вниз:​
​ видимые строки, особенно​ фильтр. Например, у​ которое мы зададим​
​ «Выделение группы ячеек».​
​ в ячейке С2​ и пишут все​ Надергайте скринов и​ArkaIIIa​ — Выделить —​

​ появится список команд​​Семен Казменко​ значением. Далее ОК.​

​ смотрела, но для​​Serge_007​ строк. в соседний​ вставки», «Запрос», Type:=8)​Умный Excel в данном​

​ если их много.​​ нас в примере​​ условным форматированием и​
​ Чтобы​ пишем такую формулу.​solotze​ приложите к сообщению,​

​:​​ Только видимые ячейки​ этой категории.​: Предложенный Вам вариант​
​ ‘Если фильтр уже​ копировать/вставить этот способ​: Я уже ответил.​
​ столбец ПЫТАЮСЬ вставить​ ‘проверяем, чтобы они​

​ случае понимает, что​​ Как вставить данные​​ — не в​ формулой. Смотрите, как​заполнить видимые ячейки в​ =А2*10​
​: igrtsk,​ может попроще будет​solotze​ — Ок. А​
​6) почти в​ такой заумный. Все​

​ задействован — выделяем​​ действительно не пойдет.​Почему у Вас​ новые данные . ​ были одинакового размера​ вы хотите ввести​ в отфильтрованные строки,​ строки 1-7, а​ это сделать, в​

​ выделенных столбцах Excel​​Получилось так.​это я уже​ разобраться.​

​Ну, попробуйте тогда​​ дальше уже копируете,​​ самом конце этого​
​ это можно сделать​ любую видимую ячейку.​Эти две таблицы​ не так -​ и получается что​ If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <>​ значения именно в​ смотрите в статье​ ниже или на​

​ статье «Закрасить ячейку​​, нажимаем сочетание клавиш​

​Отменим фильтр. Получилась такая​​ поняла. Так я​solotze​ Сервис-Настройка-Команды, в категории​ как обычно​ (см.п.5) списка кнопка​ простым копированием. Для​ _ ‘ Далее​ ведь как-то связаны​ надо разбираться локально​ вставляются данные во​

​ copyrng.Cells.Count Then MsgBox​​ отфильтрованные ячейки и​ «Вставить в видимые​ другом листе, т.д.​

​ по условию в​​ «Ctrl» + D.​ таблица.​

​ смогу как то​​: вот что получается​
​ «Правка» кнопка «Выделить​- но где​ «ВыделитьВидемыеЯчейки»​ этого:​

​ по ходу a​​ между собой, может​​Pelena​​ все по порядку​
​ «Диапазоны копирования и​ делает то, что​​ строки в Excel».​​ Если вставим в​ Excel формулой».​ И все выделенные​Формула и цифры вставились​ сделать такое копирование?​
​_Boroda_​ только видимые ячейки».​ все это найти​7) на нее​1) Выделить нужный​ = InputBox(prompt: ,vbCritical​
​ нужно:​Весьма распространенная ситуация, вопрос​ строки, где стоит​Отбор данных в​

​ столбцы заполнятся данными​

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

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

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

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

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

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

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

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

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

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

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

Ни для кого не секрет, что Excel позволяет выделять только видимые строки. Например, если некоторые из них скрыты или к ним применен фильтр.

если кто-то не знает, как это сделать: выделяем диапазон — Alt+;(для английской раскладки);Alt+ж(для русской). Подробнее можно почитать в этой статье

Если после выделения только видимых ячеек их скопировать, то скопируются они как положено. Но при попытке вставить скопированное в отфильтрованный диапазон(либо содержащий скрытые строки) — то результат вставки будет не совсем такой, как Вы ожидали. Данные будут вставлены даже в скрытые строки. Либо как вариант получим ошибку «Данная команда не применима к несвязанному диапазону».

Копируем единый диапазон ячеек и вставляем только в видимые
Чтобы данные вставлялись только в видимые ячейки, можно применить такой макрос:

Option Explicit Dim rCopyRange As Range 'Этим макросом копируем данные Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub 'Этим макросом вставляем данные, начиная с выделенной ячейки Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Вставляемый диапазон не должен содержать более одной области!", vbCritical, "Неверный диапазон": Exit Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange.Columns.Count li = 0: lCount = 0: le = iCol - 1 For Each rCell In rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li, le).EntireRow.Hidden = False Then rCell.Copy ActiveCell.Offset(li, le) lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1).Row Next rCell Next iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Option Explicit Dim rCopyRange As Range ‘Этим макросом копируем данные Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub ‘Этим макросом вставляем данные, начиная с выделенной ячейки Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox «Вставляемый диапазон не должен содержать более одной области!», vbCritical, «Неверный диапазон»: Exit Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange.Columns.Count li = 0: lCount = 0: le = iCol — 1 For Each rCell In rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li, le).EntireRow.Hidden = False Then rCell.Copy ActiveCell.Offset(li, le) lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row — rCopyRange.Cells(1).Row Next rCell Next iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Как использовать: Для начала надо убедиться, что разрешены макросы и при необходимости включить их: почему не работает макрос. Затем копируем код выше, из Excel переходим в редактор VBA( Alt + F11 ) —Insert —Module. Вставляем туда скопированный код. Теперь код можно вызывать нажатием клавиш Alt + F8 -выделяем имя макроса —Выполнить (Run) .
Для полноты картины, данные макросы лучше назначить на горячие клавиши(в приведенных ниже кодах это делается автоматически при открытии книги с кодом). Для этого приведенные ниже коды необходимо просто скопировать в модуль ЭтаКнига(ThisWorkbook):

Option Explicit 'Отменяем назначение горячих клавиш перед закрытием книги Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub 'Назначаем горячие клавиши при открытии книги Private Sub Workbook_Open() Application.OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" End Sub

Option Explicit ‘Отменяем назначение горячих клавиш перед закрытием книги Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey «^q»: Application.OnKey «^w» End Sub ‘Назначаем горячие клавиши при открытии книги Private Sub Workbook_Open() Application.OnKey «^q», «My_Copy»: Application.OnKey «^w», «My_Paste» End Sub

Теперь можно скопировать нужный диапазон нажатием клавиш Ctrl + q , а вставить его в отфильтрованный — Ctrl + w .
Если необходимо переносить только значения (т.е. если в ячейке будут формулы, то в итоге будет перенесен результат вычисления этой формулы), надо заменить строку в коде:

rCell.Copy ActiveCell.Offset(li, le)

rCell.Copy ActiveCell.Offset(li, le)