Kako oštevilčiti vrstice po samodejnem vstavljanju ali brisanju vrstic v Excelu?

Recimo, da imam v stolpcu oštevilčene vrstice od 1 do 20, zdaj, ko vstavim ali izbrišem vrstico iz obsega podatkov, želim, da se seznam številk samodejno preštevilči. Ali je to nalogo mogoče dokončati v Excelu?

Številčite vrstice po samodejnem vstavljanju ali brisanju vrstic s formulami

Številčite vrstice po samodejnem vstavljanju ali brisanju vrstic s kodo VBA

Številčite vrstice po samodejnem vstavljanju ali brisanju vrstic s formulami

Dejansko vam lahko funkcija vrstice v Excelu pomaga, da po vstavljanju ali brisanju vrstic samodejno preštevilčite vrstice, naredite naslednje:

1. Vnesite to formulo: = VRSTICA () - 1 v celico A2 in nato povlecite ročico za polnjenje navzdol do celic, v katere želite oštevilčiti vrstice, glejte posnetek zaslona:

Opombe: Če se seznam številk začne v prvi celici, lahko formulo spremenite kot = ROW (), lahko formulo dodate ali odštejete, če se vaše številke ne ujemajo z dejansko vrstico, na primer, = VRSTICA () - 3, = ROW () + 10...

2. Nato ustvarite tabelo za ta obseg podatkov, izberite obseg podatkov in kliknite Vstavi > Tabela, nato pa v Ustvari tabelo pogovorno okno, preverite Moja tabela ima glave če so v vašem obsegu glave, si oglejte posnetek zaslona:

3. In nato kliknite OK, tabela je bila ustvarjena naenkrat in zdaj, ko vstavite ali izbrišete vrstice v obsegu tabel, se številke vrstic vedno samodejno posodobijo, glejte posnetek zaslona:

Številčite vrstice po samodejnem vstavljanju ali brisanju vrstic s kodo VBA

Razen zgornje metode formule jo lahko dokončate tudi s kodo VBA.

1. Pojdite na delovni list, v katerega želite samodejno vstaviti zaporedne številke.

2. Z desno miškino tipko kliknite jeziček lista in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno okno modula.

Koda VBA: Samodejno številčenje vrstic po vstavitvi ali brisanju vrstic:

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. Nato shranite in zaprite to kodo. Ko vnesete prvo številko 1 v celico A1, se zaporedne številke od 1 do 20 samodejno napolnijo. Če iz obsega vstavite ali izbrišete vrstice, bo številka serije hkrati samodejno preštevilčena.

Opombe: V zgornji kodi črka A označuje črko stolpca, v katero želite vnesti zaporedno številko, 1 V 20 je vrstice, ki jih želite oštevilčiti, in A21 je sklic na celico poleg vaše zadnje oštevilčene celice. Lahko jih spremenite po potrebi.

Predstavitev: oštevilčite vrstice po samodejnem vstavljanju ali brisanju vrstic na Excelovem delovnem listu

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...