Hoe automatisch genummerde samengevoegde cellen in Excel te maken?

Hoe kunnen we reeksen nummers invullen in een lijst met samengevoegde cellen van verschillende grootte in Excel? Het eerste wat in ons opkomt, is het slepen van de automatische vulhendel om de samengevoegde cellen te vullen, maar in dit geval krijgen we het volgende waarschuwingsbericht en kunnen we de samengevoegde cellen niet vullen.

Aangezien de vulhendel geen ondersteuning biedt voor samengevoegde cellen, wil ik hier enkele andere trucs bespreken om dit probleem op te lossen.

Automatisch nummeren / samengevoegde cellen vullen met VBA-code

Automatisch nummeren / samengevoegde cellen vullen met VBA-code

De volgende VBA-code kan u helpen om de geselecteerde samengevoegde cellen snel te nummeren. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Automatisch nummeren samengevoegde cellen

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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin u wordt gevraagd de samengevoegde cellen te selecteren die u wilt vullen, zie screenshot:

4. Nadat u de samengevoegde cellen hebt geselecteerd en op OK hebt geklikt, zijn uw geselecteerde samengevoegde cellen nu gevuld met opeenvolgende nummers, zie screenshot:

Gerelateerde artikelen:

Hoe automatisch te nummeren of hernummeren na filteren in Excel?

Hoe snel aangrenzende rijen met dezelfde gegevens in Excel samen te voegen?

Hoe samengevoegde cellen te splitsen en te vullen met dubbele waarden in Excel?