Jak automaticky číslovat sloučené buňky v aplikaci Excel?

Jak bychom mohli vyplnit čísla sérií do seznamu sloučených buněk různé velikosti v aplikaci Excel? Nejprve v naší mysli je přetáhnout popisovač automatického vyplňování, aby se vyplnily sloučené buňky, ale v tomto případě se zobrazí následující varovná zpráva a nemůžeme vyplnit sloučené buňky.

Vzhledem k tomu, že popisovač výplně nepodporuje sloučené buňky, mohu zde hovořit o některých dalších tricích pro řešení tohoto problému.

Automatické číslování / vyplňování sloučených buněk kódem VBA

Automatické číslování / vyplňování sloučených buněk kódem VBA

Následující kód VBA vám pomůže rychle očíslovat vybrané sloučené buňky. Postupujte prosím následovně:

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Automatické sloučení buněk

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám umožní vybrat sloučené buňky, které chcete vyplnit, viz screenshot:

4. Po výběru sloučených buněk klikněte na OK, vaše vybrané sloučené buňky byly nyní naplněny pořadovými čísly, viz screenshot:

Související články:

Jak automaticky číslovat nebo přečíslovat po filtru v aplikaci Excel?

Jak rychle sloučit sousední řádky se stejnými daty v aplikaci Excel?

Jak sloučit buňky a vyplnit duplicitní hodnoty v aplikaci Excel?