Hoe samengevoegde cellen automatisch nummeren in Excel?
Hoe kunnen we serienummers invullen in een lijst met samengevoegde cellen van verschillende grootte in Excel? We moeten eerst de hendel voor Automatisch aanvullen slepen om de samengevoegde cellen te vullen, maar in dit geval krijgen we het volgende waarschuwingsbericht te zien en kunnen we de samengevoegde cellen niet vullen.
Omdat de vulgreep de samengevoegde cellen niet ondersteunt, kan ik hier enkele andere trucs bespreken om dit probleem op te lossen.
Auto nummer / vul samengevoegde cellen met VBA-code
Auto nummer / vul samengevoegde cellen met VBA-code
De volgende VBA-code kan u helpen om de geselecteerde samengevoegde cellen snel te nummeren. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: samengevoegde cellen automatisch nummeren
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 F5 toets om deze code uit te voeren, en er verschijnt een promptvenster waarin u de samengevoegde cellen kunt selecteren die u wilt vullen, zie screenshot:
4. Selecteer de samengevoegde cellen en klik op OK, nu zijn uw geselecteerde samengevoegde cellen gevuld met opeenvolgende nummers, zie screenshot:
Gerelateerde artikelen:
Hoe automatisch nummeren of opnieuw nummeren na filter in Excel?
Hoe snel aangrenzende rijen met dezelfde gegevens samenvoegen in Excel?
Hoe cellen samen te voegen en te vullen met dubbele waarden in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
