Hur automatiskt numrerade sammanslagna celler i Excel?
Hur kunde vi fylla serienumren i en lista med sammanslagna celler i olika storlekar i Excel? Först i vårt sinne är att dra autofyllhandtaget för att fylla de sammanslagna cellerna, men i det här fallet får vi följande varningsmeddelande och kan inte fylla de sammanslagna cellerna.
Eftersom fyllningshandtaget inte stöder de sammanslagna cellerna kan jag här prata om några andra knep för att lösa detta problem.
Auto nummer / fyll sammanslagna celler med VBA-kod
Auto nummer / fyll sammanslagna celler med VBA-kod
Följande VBA-kod kan hjälpa dig att snabbt numrera de valda sammanslagna cellerna. Gör så här:
1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: sammanslagna celler automatiskt
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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att låta dig välja de sammanslagna cellerna du vill fylla, se skärmdump:
4. När du har valt de sammanslagna cellerna och klickar på OK, nu har dina valda sammanslagna celler fyllts med löpnummer, se skärmdump:
Relaterade artiklar:
Hur automatiskt numrerar eller numreras om efter filter i Excel?
Hur sammanfogar man snabbt angränsande rader med samma data i Excel?
Hur slår man samman celler och fyller med dubbla värden i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!