Hvordan nummererer man rækker efter automatisk indsættelse eller sletning af rækker i Excel?

Antag, jeg har nummererede rækker fra 1 til 20 i en kolonne, nu når jeg indsætter eller sletter en række fra dataområdet, vil jeg have, at nummerlisten automatisk kan omnummereres. Kan denne opgave udføres i Excel?

Antal rækker efter indsættelse eller sletning af rækker automatisk med formler

Antal rækker efter indsættelse eller sletning af rækker automatisk med VBA-kode

Antal rækker efter indsættelse eller sletning af rækker automatisk med formler

Faktisk kan rækkefunktionen i Excel hjælpe dig med automatisk at omnummerere rækkerne efter indsættelse eller sletning af rækker skal du gøre som følger:

1. Indtast denne formel: = RÆK () - 1 ind i celle A2, og træk derefter fyldhåndtaget ned til de celler, som du vil nummerere rækkerne, se skærmbillede:

Bemærk: Hvis din nummerliste starter ved den første celle, kan du ændre formlen som = RÆK (), kan du tilføje eller trække fra formlen, hvis dine tal ikke stemmer overens med den aktuelle række, for eksempel = RÆK () - 3, = RÆK () + 10...

2. Opret derefter en tabel for dette dataområde, vælg dataområdet, og klik indsatte > Bord, og derefter i Opret tabel dialogboks, tjek Mit bord har overskrifter hvis der er overskrifter i dit interval, se skærmbillede:

3. Og klik derefter på OK, er tabellen oprettet med det samme, og nu, når du indsætter eller sletter rækker i tabelområdet, opdateres rækkenumrene altid automatisk, se skærmbillede:

Antal rækker efter indsættelse eller sletning af rækker automatisk med VBA-kode

Bortset fra ovenstående formelmetode kan du også afslutte den med en VBA-kode.

1. Gå til regnearket, som du vil indsætte sekvensnumre automatisk.

2. Højreklik på arkfanen, og vælg Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme modulvindue.

VBA-kode: Auto nummerrækker efter indsættelse eller sletning af rækker:

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. Gem derefter og luk denne kode, når du indtaster det første nummer 1 i celle A1, udfyldes sekvensnumrene fra 1 til 20 automatisk. Hvis du indsætter eller sletter rækker fra området, omnummereres serienummeret automatisk med det samme.

Bemærk: I ovenstående kode, brevet A angiver kolonnebrevet, som du vil udfylde sekvensnummeret, 1 Til 20 er de rækker, som du vil nummerere, og A21 er cellehenvisningen ved siden af ​​din sidst nummererede celle. Du kan ændre dem efter behov.

Demo: Antal rækker efter indsættelse eller sletning af rækker automatisk i Excel-regneark

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...