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.
V stolpce celic vstavite oznake ali seznam oštevilčenja
Kutools za Excel's Vstavi oznako in jaznsert oštevilčenje funkcije vam lahko pomagajo hitro vstaviti označene in oštevilčene sezname v stolpec celic. Kliknite za prenos Kutools za Excel!
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!
Predstavitev: oštevilčite vrstice po samodejnem vstavljanju ali brisanju vrstic na Excelovem delovnem listu
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!