Hvordan auto nummereres flettede celler i Excel?
Hvordan kunne vi udfylde serienumre i en liste over flettede celler i forskellige størrelser i Excel? Først i vores sind er at trække Autofyld-håndtaget for at udfylde de flettede celler, men i dette tilfælde får vi følgende advarselsmeddelelse og kan ikke udfylde de flettede celler.
Da fyldhåndtaget ikke understøtter de flettede celler, kan jeg her tale om nogle andre tricks til løsning af dette problem.
Auto nummer / udfyld flettede celler med VBA-kode
Auto nummer / udfyld flettede celler med VBA-kode
Den følgende VBA-kode kan hjælpe dig med hurtigt at nummerere de valgte flettede celler. Gør følgende:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Auto nummererede flettede celler
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. Tryk derefter på F5 nøgle til at køre denne kode, og et promptfelt vises, så du kan vælge de flettede celler, du vil udfylde, se skærmbillede:
4. Når du har valgt de flettede celler, og klik på OK, nu er dine valgte flettede celler fyldt med fortløbende numre, se skærmbillede:
Relaterede artikler:
Hvordan automatisk nummereres eller omnummereres efter filter i Excel?
Hvordan flettes hurtigt tilstødende rækker med samme data i Excel?
Hvordan slettes celler sammen og udfyldes med duplikater i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!