Sut i awto rhifau celloedd unedig yn Excel?
Sut y gallem lenwi rhifau cyfresi i mewn i restr o gelloedd unedig o wahanol faint yn Excel? Yn gyntaf yn ein meddwl yw llusgo handlen Autofill i lenwi'r celloedd unedig, ond, yn yr achos hwn, byddwn yn cael y neges rybuddio ganlynol, ac ni allwn lenwi'r celloedd unedig.
Gan nad yw'r handlen llenwi yn cefnogi'r celloedd unedig, yma, gallaf siarad am rai triciau eraill ar gyfer datrys y broblem hon.
Rhif awto / llenwi celloedd unedig â chod VBA
Rhif awto / llenwi celloedd unedig â chod VBA
Gall y cod VBA canlynol eich helpu i rifo'r celloedd unedig a ddewiswyd yn gyflym. Gwnewch fel a ganlyn:
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 cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Uno celloedd wedi'u huno â rhifau
Sub NumberCellsAndMergedCells()
'Update 20141028
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)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i adael i chi ddewis y celloedd unedig rydych chi am eu llenwi, gweler y screenshot:
4. Ar ôl dewis y celloedd unedig, a chlicio OK, nawr, mae'r celloedd unedig a ddewiswyd wedi'u llenwi â rhifau dilyniannol, gweler y screenshot:
Erthyglau cysylltiedig:
Sut i rifo rhif neu ail-rifo ar ôl hidlo yn Excel?
Sut i uno rhesi cyfagos yn gyflym â'r un data yn Excel?
Sut i ddadmer celloedd a'u llenwi â gwerthoedd dyblyg 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!
