Sut i rifo rhif neu ail-rifo ar ôl hidlo yn Excel?
Fel y gwyddom i gyd, ar ôl hidlo'r data sydd â rhestr o rifau cyfres, bydd rhifau'r rhes ar y daflen waith yn cael eu harddangos yr un fath â'r rhifau gwreiddiol, ni chânt eu hail-rifo'n awtomatig. Ond, weithiau, rydych chi am ail-rifo'r rhesi fel dilyniant yn y daflen waith wedi'i hidlo fel y sgrinluniau canlynol a ddangosir. Ac yr erthygl hon, byddaf yn siarad am sut i rifo rhif neu ail-rifo ar ôl hidlo yn Excel.
Rhif awto neu ail-rifo ar ôl hidlo gyda chod VBA
Rhif auto neu ail-rifo ar ôl hidlo gyda Kutools ar gyfer Excel
 |
 |
 |
Rhif awto neu ail-rifo ar ôl hidlo gyda chod VBA
Yn y statws wedi'i hidlo, ni allwch gymhwyso handlen Autofill i lenwi'r dilyniant rhif, gallwch eu llenwi trwy deipio'r rhifau fesul un. Ond, bydd hyn yn ddiflas ac yn cymryd llawer o amser os oes angen ail-rifo llawer o gelloedd. Yma, byddaf yn cyflwyno cod VBA i ddatrys y dasg hon.
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr modiwl.
Cod VBA: Rhif awto neu ail-rifo ar ôl hidlo
Sub Renumbering()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
xIndex = 1
For Each Rng In WorkRng
Rng.Value = xIndex
xIndex = xIndex + 1
Next
End Sub
3. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis celloedd amrediad yr ydych chi am eu rhifo neu ail-rifo'r rhesi, gweler y screenshot:
4. Yna cliciwch OK, ac mae'r celloedd amrediad a ddewiswyd gennych wedi'u hail-rifo yn olynol fel y dangosir isod y llun:
Nodyn: Bydd y cod hwn yn dinistrio rhifau rhes y gyfres wreiddiol pan fyddwch chi'n canslo'r swyddogaeth hidlo. Felly mae angen i chi ategu eich data yn gyntaf.
Rhif auto neu ail-rifo ar ôl hidlo gyda Kutools ar gyfer Excel
Os ydych chi wedi gosod Kutools ar gyfer Excel, gyda'i bwerus Mewnosod rhif Dilyniant nodwedd, gallwch fewnosod rhifau dilyniant yn y data wedi'i hidlo yn gyflym ac yn hawdd yn unig.
| Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Dewiswch y celloedd rydych chi am eu hail-rifo ar gyfer y data wedi'i hidlo.
2. Yna cliciwch Kutools > Mewnosod > Mewnosod rhif Dilyniant, gweler y screenshot:
3. Yna yn y popped allan Mewnosod Rhif Dilyniant blwch deialog, cliciwch Nghastell Newydd Emlyn botwm, gweler y screenshot:
4. Ac yna crëwch rifau'r rhestr ddilyniannau yn ôl yr angen yn yr adran waelod chwith, gweler y screenshot:
5. Ar ôl gosod y dilyniant, cliciwch Ychwanegu botwm, ac mae'r eitem dilyniant wedi'i hychwanegu at y blwch deialog, gweler y screenshot:
6. Ac yna cliciwch Llenwch Ystod, ac mae'r data wedi'i hidlo wedi'i ail-rifo ar unwaith. Gweler y screenshot:
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Rhif auto neu ail-rifo ar ôl hidlo gyda Kutools ar gyfer Excel
Erthygl gysylltiedig:
Sut i awto rhifau celloedd unedig yn 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!
