Hogyan számolhatjuk automatikusan az egyesített cellákat az Excelben?

Hogyan tölthetnénk be a sorozatszámokat az Excel különböző méretű egyesített celláinak listájába? Először az a gondolatunk, hogy az automatikus kitöltési fogantyút húzzuk az egyesített cellák kitöltéséhez, de ebben az esetben a következő figyelmeztető üzenetet kapjuk, és nem tudjuk kitölteni az egyesített cellákat.

Mivel a kitöltő fogantyú nem támogatja az összevont cellákat, itt néhány egyéb trükkről beszélhetek a probléma megoldására.

Az egyesített cellák automatikus száma / kitöltése VBA kóddal

Az egyesített cellák automatikus száma / kitöltése VBA kóddal

A következő VBA-kód segíthet a kiválasztott egyesített cellák gyors számozásában. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Az egyesített cellák automatikus száma

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely lehetővé teszi a kitölteni kívánt egyesített cellák kiválasztását, lásd a képernyőképet:

4. Az összevont cellák kiválasztása után kattintson a gombra OK, most a kiválasztott egyesített cellák sorszámokkal vannak megtöltve, lásd a képernyőképet:

Kapcsolódó cikkek:

Hogyan lehet automatikusan számozni vagy újraszámozni az Excel szűrő után?

Hogyan lehet gyorsan összevonni a szomszédos sorokat ugyanazokkal az adatokkal az Excelben?

Hogyan válthatja szét a cellákat és töltse ki az Excel másolatát?