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:
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:
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 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
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...
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!