Як роз’єднати комірки та заповнити повторюваними значеннями в Excel?
Якщо у вас є аркуш, який містить безліч об’єднаних комірок, і тепер вам потрібно об’єднати їх та автоматично заповнити вихідні значення з об’єднаних комірок, як показано на наступних скріншотах. Як ви могли швидко впоратися з цим завданням?
Роз’єднайте комірки та заповніть дублікатами даних за допомогою команди Перейти до спеціального
Роз’єднайте комірки та заповніть дублікатами даних із кодом VBA
Роз’єднайте клітинки та заповніть дублікатами даних одним клацанням миші
Роз’єднайте комірки та заповніть дублікатами даних за допомогою команди Перейти до спеціального
З Перейти до спеціального за допомогою команди, ви можете об'єднати клітинки та заповнити значення. Але цей метод є дещо складним, виконайте такі дії:
1. Виділіть стовпці, які об’єднали комірки.
2. Клацання Головна > Злиття та центр > Роз’єднати клітини. Дивіться знімок екрана:
3. А об’єднані комірки були об’єднані, і лише перша комірка буде заповнена вихідними значеннями. А потім знову виберіть діапазон.
4. Потім натисніть Головна > Знайти та вибрати > Перейти до спеціального, в Перейти до спеціального діалогове вікно, виберіть Бланки варіант. Дивіться знімок екрана:
5. А потім клацніть OK, вибрано всі порожні клітинки в діапазоні. Потім введіть = і натисніть Up клавіша зі стрілкою на клавіатурі. Дивіться знімок екрана:
6. Потім натисніть Ctrl + Enter ключі, усі порожні комірки заповнені вихідними об’єднаними даними. Дивіться знімок екрана:
Роз’єднайте комірки та заповніть дублікатами даних із кодом VBA
За допомогою наступного коду VBA ви можете швидко об’єднати комірки та заповнити значення.
1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний макрос у Модулівікна.
Sub UnMergeSameCell () 'Upadateby Extendoffice Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = Помилковий для кожного дзвінка в WorkRng, якщо Rng.MergeCells то з Rng.MergeArea .UnMerge .Formula = Rng.Formula Закінчується з кінцем, якщо наступне Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
3. Потім натисніть F5 клавіші для запуску цього коду, відображається діалогове вікно вибору діапазону для роботи, див. знімок екрана:
4. Натисніть OK, потім об’єднані комірки були об’єднані та автоматично заповнені вихідні об’єднані значення.
Роз’єднайте клітинки та заповніть дублікатами даних одним клацанням миші
З Роз’єднати комірку корисність Kutools для Excel, Ви можете роз’єднати клітинки та заповнити дублікатами даних одним клацанням миші, цей метод дуже простий та зручний.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, Ви можете зробити наступне:
1. Виберіть стовпці, які потрібно об’єднати, і заповніть дані.
2. Клацання Кутулс > Злиття та розділення > Роз’єднайте клітинки та заповніть значення, див. скріншот:
3. І об’єднані клітинки були об’єднані та заповнені дублікатами відразу. Дивіться скріншоти:
Роз’єднайте комірки та заповніть їх повторюваними даними за допомогою Kutools для Excel
Пов'язана стаття:
Об’єднайте сусідні рядки з однаковими даними в Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!