Як скопіювати та вставити лише непорожні клітинки в Excel?
Більшість з нас може страждати від цієї проблеми, коли ми копіюємо список даних, які містять кілька порожніх комірок, а потім вставляємо їх в інший стовпець, порожні клітинки також будуть вставлені. Це дуже дратує, коли нам не потрібні порожні місця і ми хочемо вставити лише порожні клітинки. Як у цьому випадку ми могли швидко та зручно скопіювати та вставити лише непорожні клітинки в Excel? Ось декілька швидких прийомів, щоб вирішити це:
Скопіюйте та вставте лише незаповнені комірки за допомогою команди "Перейти до спеціального"
Скопіюйте та вставте лише незаповнені клітинки з функцією фільтра
Скопіюйте та вставте лише незаповнені клітинки з формулою масиву
Скопіюйте та вставте лише незаповнені клітинки з кодом VBA
Копіюйте та вставляйте лише непорожні клітинки за допомогою Kutools для Excel
Скопіюйте та вставте лише незаповнені комірки за допомогою команди "Перейти до спеціального"
З Перейти до спеціального Ви можете спочатку вибрати всі дані, а потім скопіювати та вставити їх в інше місце.
1. Виберіть свій список даних, які ви хочете використовувати.
2. Потім натисніть Головна > Знайти та вибрати > Перейти до спеціального, див. скріншот:
3, в Перейти до спеціального діалогове вікно, поставте галочку Константи варіант, див. скріншот:
4. Потім натисніть OK, і у списку були вибрані лише комірки значень.
5. А потім скопіюйте та вставте дані в потрібне місце. І було вставлено лише значення порожніх комірок. Дивіться знімок екрана:
примітки: Цей метод доступний лише для констант, він не застосовується до клітин формули.
Скопіюйте та вставте лише незаповнені клітинки з функцією фільтра
Команда фільтр Ця функція може допомогти вам спочатку відфільтрувати непусті клітинки, а потім скопіювати та вставити їх в інші комірки, як вам потрібно.
2. Клацання дані > фільтр, див. скріншот:
3. Потім натисніть кнопку спадного меню у правому куті комірки у вибраному списку та зніміть прапорець Бланки у спадному меню. Дивіться знімок екрана:
4. А потім клацніть OK, всі непусті клітинки були відфільтровані, як показано на наступному скріншоті:
5. Нарешті, ви можете скопіювати відфільтровані дані та вставити їх у будь-яке потрібне вам місце.
примітки: Як значення, так і формули набувають чинності, використовуючи цей спосіб.
Виділіть непусті клітинки відразу |
Натисніть, щоб отримати безкоштовну повнофункціональну пробну версію за 30 днів! |
Скопіюйте та вставте лише незаповнені клітинки з формулою масиву
Щоб скопіювати та вставити лише непорожні клітинки, можна також застосувати таку формулу масиву.
1. Окрім своїх даних, введіть у порожню комірку таку формулу:
=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
примітки: У наведеній вище формулі, A1: A15 це список даних, який ви хочете використовувати. Ви можете змінити його відповідно до своїх потреб.
2. Потім натисніть Shift + Ctrl + Enter клавіші разом, а потім виберіть комірку B1 і перетягніть маркер заповнення до діапазону, який ви хочете містити у цій формулі, і всі непусті значення комірки були витягнуті. Дивіться знімок екрана:
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 клавіші для запуску цього коду, з'явиться підказка з нагадуванням про вибір діапазону даних, який ви хочете використовувати. Дивіться знімок екрана:
4. А потім клацніть OK, з’явиться інше вікно запиту, яке дозволить вам вибрати комірку для розміщення даних.
5. Натисніть OK щоб закінчити цей код, і лише непусті значення комірки були вставлені у вказану вами позицію.
примітки: Цей код доступний лише для постійних.
Копіюйте та вставляйте лише непорожні клітинки за допомогою Kutools для Excel
Чи є набагато простіший спосіб, ніж вище? Звичайно, Kutools для Excel's Виберіть Nonblank CellУтиліта s може допомогти вам спочатку виділити непорожні комірки, а потім скопіювати та вставити їх.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Виберіть діапазон комірок і натисніть Кутулс > Select > Виберіть Nonblank Cells. Дивіться знімок екрана:
2. Потім виділяються непусті клітинки, натисніть Ctrl + C щоб скопіювати їх, потім перейдіть до вибору комірки, куди ви хочете вивести пасетований результат, натисніть Ctrl + V вставити виділені непусті клітинки. Дивіться знімок екрана:
Скопіюйте та вставте лише порожню комірку
Kutools для Excel: 300+ функцій, які ви повинні мати в Excel, 30-денна безкоштовна пробна версія звідси |
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!