Hogyan számolhatjuk automatikusan az egyesített cellákat az Excelben?
Hogyan tölthetnénk be a sorozatszámokat az Excel különböző méretű egyesített celláinak listájába? Először az a gondolatunk, hogy az automatikus kitöltési fogantyút húzzuk az egyesített cellák kitöltéséhez, de ebben az esetben a következő figyelmeztető üzenetet kapjuk, és nem tudjuk kitölteni az egyesített cellákat.
Mivel a kitöltő fogantyú nem támogatja az összevont cellákat, itt néhány egyéb trükkről beszélhetek a probléma megoldására.
Az egyesített cellák automatikus száma / kitöltése VBA kóddal
Az egyesített cellák automatikus száma / kitöltése VBA kóddal
A következő VBA-kód segíthet a kiválasztott egyesített cellák gyors számozásában. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Az egyesített cellák automatikus száma
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely lehetővé teszi a kitölteni kívánt egyesített cellák kiválasztását, lásd a képernyőképet:
4. Az összevont cellák kiválasztása után kattintson a gombra OK, most a kiválasztott egyesített cellák sorszámokkal vannak megtöltve, lásd a képernyőképet:
Kapcsolódó cikkek:
Hogyan lehet automatikusan számozni vagy újraszámozni az Excel szűrő után?
Hogyan lehet gyorsan összevonni a szomszédos sorokat ugyanazokkal az adatokkal az Excelben?
Hogyan válthatja szét a cellákat és töltse ki az Excel másolatát?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
