KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как вставить значения только в видимые (отфильтрованные) ячейки в Excel?

АвторСуньДата изменения

В Excel, если к данным применён фильтр или некоторые ячейки скрыты, при вставке значений в отфильтрованный или скрытый диапазон они заполнятся **все** — включая скрытые. Ниже вы найдёте несколько эффективных способов вставить значения **только в видимые ячейки**.

Вставка значений в видимые ячейки с помощью VBA

Вставка значений в видимые ячейки с помощью Вставить в видимый диапазон из Kutools для Excel хорошая идея3


Вставка значений в видимые ячейки с помощью VBA

В Excel для решения этой задачи нет других способов, кроме использования VBA.

1. Нажмите Alt + F11 одновременно, и откроется окно Microsoft Visual Basic для приложений.

2. Выберите Вставка > Модуль, затем вставьте приведённый ниже код VBA в открывшееся окно модуля.

VBA: вставка значений только в видимые ячейки.

Sub CopyFilteredCells()
	'Updateby20150203
	Dim rng1 As Range
	Dim rng2 As Range
	Dim InputRng As Range
	Dim OutRng As Range
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
	Set OutRng   = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
	For Each rng1 In InputRng
		rng1.Copy
		For Each rng2 In OutRng
			If rng2.EntireRow.RowHeight > 0 Then
				rng2.PasteSpecial
				Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
				Exit For
			End If
		Next
	Next
	Application.CutCopyMode = False
End Sub

3. Нажмите F5 или кнопку Выполнить, после чего откроется диалоговое окно для выбора значений, которые нужно скопировать. См. снимок экрана:
код VBA для выбора ячеек для копирования

4. После выбора значений нажмите ОК, после чего появится ещё одно диалоговое окно для выбора диапазона, куда следует вставить «Выбрать данные». См. снимок экрана:
 код VBA для выбора диапазона для вставки выделенных данных

5. Нажмите ОК. Вы увидите, что выбранные значения вставлены только в видимые ячейки.


Вставка значений в видимые ячейки с помощью Вставить в видимый диапазон из Kutools для Excel

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

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

После установки Kutools для Excel выполните следующие действия:(Бесплатно скачать Kutools для Excel прямо сейчас!)

1. Выделите диапазон значений, который хотите скопировать и вставить, затем нажмите Kutools > Диапазон > Вставить в видимый диапазон > Все или Вставить только значения. См. снимок экрана:
нажмите Kutools > Диапазон > Вставить в видимый диапазон

2. Затем появится диалоговое окно Вставить в видимый диапазон, в котором нужно выбрать диапазон для вставки значений. См. снимок экрана:
 выберите диапазон для вставки значений

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

Вставить только значения в видимые ячейкиВставить всё в видимые ячейки
Вставить только значения в видимые ячейкиВставить все в видимые ячейки


Примечание:
Эта функция работает как со скрытыми, так и с отфильтрованными строками или столбцами

Щелкните здесь, чтобы узнать подробнее об утилите «Вставить в видимый диапазон».

  Вставить в видимое Только ячейки

 

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек