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

Як скопіювати та вставити лише непорожні клітинки в Excel?

Більшість з нас може страждати від цієї проблеми, коли ми копіюємо список даних, які містять кілька порожніх комірок, а потім вставляємо їх в інший стовпець, порожні клітинки також будуть вставлені. Це дуже дратує, коли нам не потрібні порожні місця і ми хочемо вставити лише порожні клітинки. Як у цьому випадку ми могли швидко та зручно скопіювати та вставити лише непорожні клітинки в Excel? Ось декілька швидких прийомів, щоб вирішити це:

Скопіюйте та вставте лише незаповнені комірки за допомогою команди "Перейти до спеціального"

Скопіюйте та вставте лише незаповнені клітинки з функцією фільтра

Скопіюйте та вставте лише незаповнені клітинки з формулою масиву

Скопіюйте та вставте лише незаповнені клітинки з кодом VBA

Скопіюйте та вставте лише незаповнені клітинки за допомогою Kutools для 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

примітки: Цей метод доступний лише для констант, він не застосовується до клітин формули.


стрілка синя права міхур Скопіюйте та вставте лише незаповнені клітинки з функцією фільтра

повне г, повне г,, показали, від, номер, XNUMX фільтр Ця функція може допомогти вам спочатку відфільтрувати непусті клітинки, а потім скопіювати та вставити їх в інші комірки, як вам потрібно.

2. Клацання дані > фільтр, див. скріншот:

doc копіювати лише незаповнені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. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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 для Excel

Чи є набагато простіший спосіб, ніж вище? Звичайно, Kutools для Excel's Виберіть Nonblank CellУтиліта s може допомогти вам спочатку виділити непорожні комірки, а потім скопіювати та вставити їх.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. Виберіть діапазон комірок і натисніть Кутулс > вибрати > Виберіть Nonblank Cells. Дивіться знімок екрана:
doc виділити непусту клітинку 2

2. Потім виділяються непусті клітинки, натисніть Ctrl + C щоб скопіювати їх, потім перейдіть до вибору комірки, куди ви хочете вивести пасетований результат, натисніть Ctrl + V вставити виділені непусті клітинки. Дивіться знімок екрана:
doc виділити непусту клітинку 3

стрілка синя права міхур Скопіюйте та вставте лише порожню комірку

Kutools для Excel: понад 300 функцій, які ви повинні мати в Excel, 30-денна безкоштовна пробна версія звідси

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (10)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
дякую за суперформулу: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"),ROW($A$1: $A$15)), РЯДКИ($B$1:B1)))))
Цей коментар був мінімізований модератором на сайті
Ця формула абсолютно дивовижна, дякую. На жаль, він ламається при спробі скопіювати з іншого аркуша, чи є обхідний шлях?
Цей коментар був мінімізований модератором на сайті
виправте посилання при використанні формули між різними аркушами. Це працює. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('Список прострочених позицій'!A:A,SMALL('Список прострочених позицій'!A$1:A$1500"", ROW('Список прострочених позицій'!A$1:A$1500)),ROWS('Список прострочених позицій'!B$1:B2)))))
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити так, щоб макрос працював при посиланні між різними аркушами?
Цей коментар був мінімізований модератором на сайті
Привіт #abc Я використав вашу формулу =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('Список прострочених позицій'!A:A,SMAL L(IF('Список прострочених позицій' !A$1:A$15 00"",ROW('Список прострочених позицій'!A$1:A$15 00)),ROWS('Список прострочених позицій'!B$1:B2)) ))) У мене є дані в один робочий аркуш і хочете скопіювати ці дані в інший аркуш (той самий документ). Ви можете допомогти?
Цей коментар був мінімізований модератором на сайті
Ці інструменти видаляють порожні клітинки та стискають рядок. Я хочу, щоб формат був збережений, включаючи пробіли, але я не хочу, щоб порожні клітинки замінювали клітинки, що містять наявні дані. тобто я хочу додати нові, скопійовані клітинки в стовпці до існуючого стовпця.
Цей коментар був мінімізований модератором на сайті
Коли я вибираю та копіюю лише непусті клітинки, як я можу потім вставити їх кудись ще, зберігаючи ті самі порожні діапазони між ними?
Цей коментар був мінімізований модератором на сайті
Дякую за чудові поради! Я використовую функцію «Знайти та вибрати», але це займає багато часу, оскільки моя електронна таблиця містить 70 стовпців і 450 тисяч рядків. Чи є спосіб закріпити процес?
Цей коментар був мінімізований модератором на сайті
Не працює над номерами!!!
Добре працює з текстом!!!
Будь ласка, керівництво
Цей коментар був мінімізований модератором на сайті
Формула масиву добре працює з текстом
але не працюйте над цифрами.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця