Hoe rijen nummeren na het automatisch invoegen of verwijderen van rijen in Excel?
Stel dat ik rijen van 1 tot 20 in een kolom heb genummerd, nu wil ik dat de nummerlijst automatisch opnieuw kan worden genummerd als ik een rij uit het gegevensbereik toevoeg of verwijder. Kan deze taak in Excel worden voltooid?
Nummer rijen na het invoegen of verwijderen van rijen automatisch met formules
Nummer rijen na het automatisch invoegen of verwijderen van rijen met VBA-code
Nummer rijen na het invoegen of verwijderen van rijen automatisch met formules
In feite kan de Row-functie in Excel u helpen om de rijen automatisch opnieuw te nummeren na het invoegen of verwijderen van rijen, doe dit als volgt:
1. Voer deze formule in: = RIJ () - 1 in cel A2 en sleep vervolgens de vulgreep naar de cellen waarvan u de rijen wilt nummeren, zie screenshot:
Note: Als uw nummerlijst begint bij de eerste cel, kunt u de formule wijzigen als = RIJ ()kunt u optellen of aftrekken van de formule als uw getallen niet overeenkomen met de werkelijke rij, bijvoorbeeld = RIJ () - 3, = RIJ () + 10...
2. Maak vervolgens een tabel voor dit gegevensbereik, selecteer het gegevensbereik en klik op Invoegen > tafelen dan in de Tabel maken dialoogvenster, vink aan Mijn tabel heeft kopteksten zie screenshot als er headers in uw bereik zijn:
3. En klik vervolgens op OK, de tabel is in 茅茅n keer gemaakt en nu, wanneer u rijen in het tabelbereik invoegt of verwijdert, worden de rijnummers altijd automatisch bijgewerkt, zie screenshot:
Nummer rijen na het automatisch invoegen of verwijderen van rijen met VBA-code
Behalve de bovenstaande formulemethode, kunt u deze ook afmaken met een VBA-code.
1. Ga naar het werkblad waarin u volgnummers automatisch wilt invoegen.
2. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de volgende code in het lege modulevenster.
VBA-code: rijen automatisch nummeren na het invoegen of verwijderen van rijen:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
Dim I As Integer
I = 1
Application.EnableEvents = False
For I = 1 To 20
Range("A" & I).Value = I
Next
Range("A21").Value = ""
Application.EnableEvents = True
End Sub
3. Sla vervolgens deze code op en sluit deze, wanneer u het eerste nummer 1 in cel A1 invoert, worden de volgnummers van 1 tot 20 automatisch gevuld. Als u rijen invoegt of verwijdert uit het bereik, wordt het serienummer automatisch opnieuw genummerd.
Note: In de bovenstaande code, de letter A geeft de kolomletter aan waarin u het volgnummer wilt invullen, 1 Naar 20 zijn de rijen die u wilt nummeren, en A21 is de celverwijzing naast uw laatst genummerde cel. U kunt ze naar behoefte wijzigen.
Voeg opsommingstekens of nummeringslijst in een kolom met cellen in
Kutools for Excel's Opsommingsteken invoegen en iknsert-nummering functies kunnen u helpen snel een lijst met opsommingstekens en nummering in een kolom met cellen in te voegen. Klik om Kutools voor Excel te downloaden!
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!
Demo: nummer rijen na het automatisch invoegen of verwijderen van rijen in het Excel-werkblad
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!