Як автоматично нумерувати об’єднані комірки в 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?