Як автоматично нумерувати об’єднані комірки в Excel?
Як ми могли заповнити номери серій у список об’єднаних комірок різного розміру в Excel? По-перше, нам потрібно перетягнути маркер автозаповнення, щоб заповнити об’єднані комірки, але в цьому випадку ми отримаємо таке попереджувальне повідомлення і не можемо заповнити об’єднані комірки.
Оскільки маркер заповнення не підтримує об’єднані комірки, тут я можу поговорити про деякі інші прийоми для вирішення цієї проблеми.
Автоматично пронумерувати / заповнити об’єднані комірки кодом VBA
Автоматично пронумерувати / заповнити об’єднані комірки кодом VBA
Наступний код VBA може допомогти вам швидко пронумерувати вибрані об’єднані комірки. Будь ласка, виконайте наступне:
1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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% та зменшує сотні клацань миші для вас щодня!
