Skip i'r prif gynnwys

Sut i rifo rhesi ar ôl mewnosod neu ddileu rhesi yn awtomatig yn Excel?

Gan dybio, rwyf wedi rhifo rhesi o 1 i 20 mewn colofn, nawr, pan fyddaf yn mewnosod neu'n dileu rhes o'r ystod ddata, rwyf am y gellir ail-rifo'r rhestr rifau yn awtomatig. A ellir cwblhau'r dasg hon yn Excel?

Rhesi rhif ar ôl mewnosod neu ddileu rhesi yn awtomatig gyda fformwlâu

Rhesi rhif ar ôl mewnosod neu ddileu rhesi yn awtomatig gyda chod VBA


Rhesi rhif ar ôl mewnosod neu ddileu rhesi yn awtomatig gyda fformwlâu

Mewn gwirionedd, gall swyddogaeth Row yn Excel eich helpu chi i ail-rifo'r rhesi ar ôl mewnosod neu ddileu rhesi, gwnewch fel a ganlyn:

1. Rhowch y fformiwla hon: = ROW () - 1 i mewn i gell A2, ac yna llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am rifo'r rhesi, gweler y screenshot:

rhesi rhif auto doc 1

Nodyn: Os yw'ch rhestr rhifau'n cychwyn yn y gell gyntaf, gallwch newid y fformiwla fel = ROW (), gallwch ychwanegu neu dynnu o'r fformiwla os nad yw'ch rhifau'n cyfateb i'r rhes wirioneddol, er enghraifft, = ROW () - 3, = ROW () + 10...

2. Yna crëwch dabl ar gyfer yr ystod ddata hon, dewiswch yr ystod ddata, a chlicio Mewnosod > Tabl, ac yna yn y Creu Tabl blwch deialog, gwirio Mae penawdau ar fy mwrdd os oes penawdau yn eich ystod, gweler y screenshot:

rhesi rhif auto doc 2

3. Ac yna cliciwch OK, mae'r tabl wedi'i greu ar unwaith, ac yn awr, pan fyddwch chi'n mewnosod neu'n dileu rhesi yn yr ystod tabl, mae'r rhifau rhes bob amser yn cael eu diweddaru'n awtomatig, gweler y screenshot:

rhesi rhif auto doc 3


Rhesi rhif ar ôl mewnosod neu ddileu rhesi yn awtomatig gyda chod VBA

Ac eithrio'r dull fformiwla uchod, gallwch hefyd ei orffen gyda chod VBA.

1. Ewch i'r daflen waith rydych chi am fewnosod rhifau dilyniant yn awtomatig.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i mewn i ffenestr y Modiwl gwag.

Cod VBA: Rhesi rhif awto ar ôl mewnosod neu ddileu rhesi:

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. Yna arbedwch a chau'r cod hwn, pan fyddwch chi'n nodi'r rhif 1 cyntaf yng nghell A1, bydd y rhifau dilyniant o 1 i 20 yn cael eu llenwi'n awtomatig. Os ydych chi'n mewnosod neu'n dileu rhesi o'r amrediad, bydd rhif y gyfres yn cael ei ail-rifo'n awtomatig ar unwaith.

Nodyn: Yn y cod uchod, y llythyr A yn nodi'r llythyren golofn yr ydych am lenwi rhif y dilyniant, 1 I 20 yw'r rhesi rydych chi am eu rhifo, a A21 yw'r cyfeirnod cell wrth ymyl eich cell olaf wedi'i rhifo. Gallwch eu newid yn ôl yr angen.


Mewnosod bwledi neu restr rifo mewn colofn o gelloedd

Kutools ar gyfer Excel's Mewnosod Bwled a minnauRhifo Nsert gall nodweddion eich helpu i fewnosod rhestr bwled a rhifo yn gyflym i golofn o gelloedd. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!


Demo: Rhif rhesi ar ôl mewnosod neu ddileu rhesi yn awtomatig yn nhaflen waith Excel

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
is there any formula?
This comment was minimized by the moderator on the site
if i delete the row, is there any possibility to set below numbers are in serial
This comment was minimized by the moderator on the site
Thanks....
This comment was minimized by the moderator on the site
Just what I was looking for thank you!!
This comment was minimized by the moderator on the site
very very thanks! http://www.extendoffice.com<br /> :D
This comment was minimized by the moderator on the site
It doesn't work for me. It won't allow me to insert a table for more than one row. If I proceed without it, it does not change the numbers after deleting or adding a row. Please advise. Thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations