Как да номерирате автоматично обединени клетки в Excel?
Как бихме могли да попълним номерата на сериите в списък с обединени клетки с различен размер в Excel? Първо в ума ни е да плъзнем манипулатора за автоматично попълване, за да запълним обединените клетки, но в този случай ще получим следното предупредително съобщение и не можем да попълним обединените клетки.
Тъй като манипулаторът за попълване не поддържа обединените клетки, тук мога да говоря за някои други трикове за решаване на този проблем.
Автоматично номериране/попълване на обединени клетки с VBA код
Автоматично номериране/попълване на обединени клетки с VBA код
Следният VBA код може да ви помогне бързо да номерирате избраните обединени клетки. Моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Автоматично номериране на обединени клетки
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. След това натиснете F5 за да изпълните този код и ще се появи поле за подкана, което ви позволява да изберете обединените клетки, които искате да попълните, вижте екранната снимка:
4. След като изберете обединените клетки, щракнете върху OK, сега вашите избрани обединени клетки са попълнени с последователни номера, вижте екранната снимка:
Още по темата:
Как автоматично да номерирате или преномерирате след филтър в Excel?
Как бързо да обедините съседни редове със същите данни в Excel?
Как да отмените обединяването на клетки и да попълните с дублиращи се стойности в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!