Kako samodejno številčiti združene celice v Excelu?

Kako lahko v Excel vnesemo serijske številke na seznam združenih celic različnih velikosti? Najprej v mislih povlecimo ročico za samodejno izpolnjevanje, da zapolnimo združene celice, vendar bomo v tem primeru dobili naslednje opozorilno sporočilo in združenih celic ne moremo zapolniti.

Ker ročaj za polnjenje ne podpira združenih celic, lahko tukaj govorim o nekaterih drugih trikih za reševanje te težave.

Samodejno številči / napolni združene celice s kodo VBA

Samodejno številči / napolni združene celice s kodo VBA

Naslednja koda VBA vam lahko pomaga hitro oštevilčiti izbrane združene celice. Naredite naslednje:

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Samodejno število spojenih celic

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, v katerem boste lahko izbrali združene celice, ki jih želite zapolniti, glejte posnetek zaslona:

4. Po izbiri združenih celic in kliknite OK, zdaj so vaše izbrane združene celice napolnjene z zaporednimi številkami, glejte posnetek zaslona:

Sorodni članki:

Kako samodejno številčiti ali preštevilčiti po filtru v Excelu?

Kako hitro združiti sosednje vrstice z enakimi podatki v Excelu?

Kako odstraniti celice in jih napolniti s podvojenimi vrednostmi v Excelu?