Note: The other languages of the website are Google-translated. Back to English

Как скопировать и вставить только непустые ячейки в Excel?

Большинство из нас может столкнуться с этой проблемой, когда мы копируем список данных, который содержит несколько пустых ячеек, а затем вставляем их в другой столбец, пустые ячейки также будут вставлены. Это очень раздражает, когда нам не нужны пробелы и мы хотим вставить только непустые ячейки. Как в таком случае быстро и удобно копировать и вставлять в Excel только непустые ячейки? Вот несколько быстрых приемов, чтобы решить эту проблему:

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

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

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

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

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


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

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

1. Выберите свой список данных, которые вы хотите использовать.

doc-copy-only-nonblanks1

2. Затем нажмите Главная > Найти и выбрать > Перейти к специальному, см. снимок экрана:

doc-copy-only-nonblanks1

3. В Перейти к специальному диалоговое окно, отметьте Константы вариант, см. снимок экрана:

doc-copy-only-nonblanks1

4. Затем нажмите OK, и в списке выбраны только ячейки значений.

doc-copy-only-nonblanks1

5. А затем скопируйте и вставьте данные в нужное место. И были вставлены только непустые значения ячеек. Смотрите скриншот:

doc-copy-only-nonblanks1

Внимание: Этот метод доступен только для констант, он не применяется к ячейкам формулы.


стрелка синий правый пузырь Копируйте и вставляйте только непустые ячейки с помощью функции фильтра

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

2. Нажмите Данные > Фильтр, см. снимок экрана:

документ копировать только без пустых 6

3. Затем нажмите кнопку раскрывающегося списка в правом углу ячейки в выбранном списке и снимите флажок Пробелы вариант в раскрывающемся меню. Смотрите скриншот:
doc-copy-only-nonblanks1

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

doc-copy-only-nonblanks1

5. Наконец, вы можете скопировать отфильтрованные данные и вставить их в любое нужное место.

Внимание: Таким образом вступают в силу и значения, и формулы.


Выбрать непустые ячейки сразу

Нажмите, чтобы получить бесплатную полнофункциональную пробную версию в 30 дней!
doc kutools выберите непустые ячейки

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

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

1. Помимо ваших данных, введите в пустую ячейку следующую формулу:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

doc-copy-only-nonblanks1

Внимание: В приведенной выше формуле A1: A15 - это список данных, который вы хотите использовать. Вы можете изменить его по своему усмотрению.

2, Затем нажмите Shift + Ctrl + Enter вместе, а затем выберите ячейку B1 и перетащите маркер заполнения в диапазон, который вы хотите содержать эту формулу, и все непустые значения ячеек были извлечены. Смотрите скриншот:

doc-copy-only-nonblanks1

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

Внимание: Эта формула доступна только для констант и не применяется к ячейкам формулы.


стрелка синий правый пузырь Скопируйте и вставьте только непустые ячейки с кодом VBA

Если вас интересует код VBA, вы можете выполнить следующий код, чтобы завершить эту задачу.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: копируйте и вставляйте только непустые ячейки в Excel

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3, Затем нажмите F5 Нажмите клавишу для запуска этого кода, появится окно с подсказкой, напоминающее вам о выборе диапазона данных, который вы хотите использовать. Смотрите скриншот:

doc-copy-only-nonblanks1

4, Затем нажмите OKпоявится другое окно подсказки, в котором вы сможете выбрать ячейку для ввода данных.

doc-copy-only-nonblanks1

5. Нажмите OK чтобы завершить этот код, и только непустые значения ячеек были вставлены в указанную вами позицию.

Внимание: Этот код доступен только для констант.


стрелка синий правый пузырь Скопируйте и вставьте только непустые ячейки с помощью Kutools for Excel

Есть ли способ намного проще, чем указано выше? Конечно, Kutools for Excel's Выбрать непустую ячейкуУтилита s может помочь вам сначала выбрать непустые ячейки, а затем скопировать и вставить их.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите диапазон ячеек и щелкните Кутулс > Выберите > Выбрать непустые ячейки. Смотрите скриншот:
документ выберите непустую ячейку 2

2. Затем выбираются непустые ячейки, нажимаем Ctrl + C чтобы скопировать их, затем выберите ячейку, в которой вы хотите вывести результат, нажмите Ctrl + V для вставки выбранных непустых ячеек. Смотрите скриншот:
документ выберите непустую ячейку 3

стрелка синий правый пузырь Скопируйте и вставьте только непустую ячейку

Kutools for Excel: более 300 функций, которые вы должны иметь в Excel, 30-дневная бесплатная пробная версия отсюда

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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (11)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
спасибо за супер формулу: =ПРОСМОТР("zzzzz",ВЫБОР({1,2},"",ИНДЕКС(A:A,МАЛЕНЬКИЙ(ЕСЛИ($A$1:$A$15"",СТРОКА($A$1: $A$15)),СТРОКИ($B$1:B1)))))
Этот комментарий был сведен к минимуму модератором на сайте
Эта формула просто потрясающая, спасибо. К сожалению, он ломается при попытке скопировать с другого листа, есть ли обходной путь?
Этот комментарий был сведен к минимуму модератором на сайте
исправьте ссылки при использовании формулы между разными листами. Это работает. =ПРОСМОТР("zzzzz",ВЫБОР({1,2},"",ИНДЕКС('Список просроченных элементов'!A:A,SMALL(IF('Список просроченных элементов'!A$1:A$1500"", ROW('Список просроченных товаров'!A$1:A$1500)),ROWS('Список просроченных товаров'!B$1:B2)))))
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ заставить макрос работать при ссылке между разными листами?
Этот комментарий был сведен к минимуму модератором на сайте
Привет #abc Я использовал вашу формулу =ПРОСМОТР("zzzzz",ВЫБОР({1,2},"",ИНДЕКС('Список просроченных элементов'!A:A,SMAL L(IF('Список просроченных элементов' !A$1:A$15 00"",ROW('Список просроченных товаров'!A$1:A$15 00)),ROWS('Список просроченных товаров'!B$1:B2)) ))) У меня есть данные в один рабочий лист и хотите скопировать эти данные на другой рабочий лист (тот же документ). Вы можете помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Эти инструменты удаляют пустые ячейки и сжимают строку. Я хочу, чтобы формат сохранялся, включая пробелы, но я не хочу, чтобы пустые ячейки перезаписывали ячейки, содержащие существующие данные. т.е. я хочу добавить новые скопированные ячейки в столбец в существующий столбец.
Этот комментарий был сведен к минимуму модератором на сайте
Когда я выбираю и копирую только непустые ячейки, как я могу вставить их в другое место, сохраняя между ними те же пустые диапазоны?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо большое за советы! Я использую функцию «Найти и выбрать», но это занимает много времени, потому что моя электронная таблица содержит 70 столбцов и 450 тыс. строк. Есть ли способ ускорить процесс?
Этот комментарий был сведен к минимуму модератором на сайте
Не работает с цифрами!!!
С текстом работает отлично!!!
Пожалуйста, направляйте
Этот комментарий был сведен к минимуму модератором на сайте
Формула массива Отлично работает с текстом
но не работайте над цифрами.
Этот комментарий был сведен к минимуму модератором на сайте
=Фильтр(А:А,А:А<>"")
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL