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