Hogyan lehet sorokat számozni, miután automatikusan beszúrta vagy törölte a sorokat az Excel programban?
Tegyük fel, hogy 1-től 20-ig sorszámozok egy oszlopban, most, amikor beszúrok vagy törölök egy sort az adattartományból, azt akarom, hogy a számlista automatikusan újraszámozható legyen. Meg lehet-e hajtani ezt a feladatot Excel-ben?
Számsorok automatikus beillesztése vagy törlése után képletekkel
Számsorok automatikus beillesztés vagy törlés után, VBA kóddal
Számsorok automatikus beillesztése vagy törlése után képletekkel
Valójában az Excel Row funkciója segíthet abban, hogy a sorok beszúrása vagy törlése után automatikusan újraszámozza a sorokat, kérjük, tegye a következőket:
1. Írja be ezt a képletet: = SOR () - 1 az A2 cellába, majd húzza lefelé a kitöltő fogantyút azokhoz a cellákhoz, amelyekhez sorokat kíván számozni, lásd a képernyőképet:
Megjegyzések: Ha a számlista az első cellánál kezdődik, akkor a képletet megváltoztathatja = ROW (), hozzáadhat vagy kivonhat a képletből, ha a számai nem egyeznek a tényleges sorral, például = SOR () - 3, = SOR () + 10...
2. Ezután hozzon létre egy táblázatot ehhez az adattartományhoz, válassza ki az adattartományt, majd kattintson betétlap > Táblázat, majd a Táblázat létrehozása párbeszédpanelen ellenőrizze Az asztalom fejlécekkel rendelkezik ha vannak fejlécek a tartományban, lásd a képernyőképet:
3. Kattintson a gombra OK, a tábla egyszerre lett létrehozva, és most, amikor sorokat illeszt be vagy töröl a táblázattartományból, a sorok száma mindig automatikusan frissül, lásd a képernyőképet:
Számsorok automatikus beillesztés vagy törlés után, VBA kóddal
A fenti képlet módszer kivételével befejezheti VBA kóddal is.
1. Menjen arra a munkalapra, amelybe automatikusan be szeretné szúrni a sorszámokat.
2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi kódot az üres Modul ablakba.
VBA kód: Sorszámok automatikus beillesztése vagy törlése után:
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. Ezután mentse el és zárja be ezt a kódot, amikor beírja az első 1-es számot az A1 cellába, az 1-től 20-ig terjedő sorszámok automatikusan kitöltődnek. Ha sorokat illeszt be vagy töröl a tartományból, a sorozatszám egyszerre automatikusan újraszámozódik.
Megjegyzések: A fenti kódban a betű A azt az oszlopbetűt jelöli, amelyet ki akar tölteni a sorszámmal, 1 Az 20-hoz az a sor, amelyet meg akar számozni, és A21 az utolsó számozott cellája melletti cellahivatkozás. Szükség szerint megváltoztathatja őket.
Helyezzen feliratokat vagy számozási listát a cellák oszlopába
Kutools az Excel számára's Helyezze be a Golyót és énnsert Számozás A funkciók segítségével gyorsan be lehet illeszteni a felsorolással ellátott és a számozási listát a cellák oszlopába. Kattintson a Kutools for Excel letöltéséhez!
Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!
Bemutató: Sorok sorainak automatikus beillesztése vagy törlése után az Excel munkalapon
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!