Jak automaticky číslovat sloučené buňky v aplikaci Excel?
Jak bychom mohli vyplnit čísla sérií do seznamu sloučených buněk různé velikosti v aplikaci Excel? Nejprve v naší mysli je přetáhnout popisovač automatického vyplňování, aby se vyplnily sloučené buňky, ale v tomto případě se zobrazí následující varovná zpráva a nemůžeme vyplnit sloučené buňky.
Vzhledem k tomu, že popisovač výplně nepodporuje sloučené buňky, mohu zde hovořit o některých dalších tricích pro řešení tohoto problému.
Automatické číslování / vyplňování sloučených buněk kódem VBA
Automatické číslování / vyplňování sloučených buněk kódem VBA
Následující kód VBA vám pomůže rychle očíslovat vybrané sloučené buňky. Postupujte prosím následovně:
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Automatické sloučení buněk
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám umožní vybrat sloučené buňky, které chcete vyplnit, viz screenshot:
4. Po výběru sloučených buněk klikněte na OK, vaše vybrané sloučené buňky byly nyní naplněny pořadovými čísly, viz screenshot:
Související články:
Jak automaticky číslovat nebo přečíslovat po filtru v aplikaci Excel?
Jak rychle sloučit sousední řádky se stejnými daty v aplikaci Excel?
Jak sloučit buňky a vyplnit duplicitní hodnoty v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
