Note: The other languages of the website are Google-translated. Back to English

Jak automaticky číslovat nebo přečíslovat po filtru v aplikaci Excel?

Jak všichni víme, po filtrování dat, která obsahují seznam čísel sérií, se čísla řádků v listu zobrazí stejně jako původní čísla, nebudou automaticky přečíslována. Ale někdy chcete přečíslovat řádky jako sekvenci ve filtrovaném listu, jak ukazují následující snímky obrazovky. A v tomto článku budu mluvit o tom, jak automaticky číslovat nebo přečíslovat po filtru v aplikaci Excel.

Automatické číslování nebo přečíslování po filtru s kódem VBA

Automatické číslování nebo přečíslování po filtru pomocí programu Kutools pro Excel

doc-prečíslování-filtr-1 -2 doc-prečíslování-filtr-2

Automatické číslování nebo přečíslování po filtru s kódem VBA

Ve filtrovaném stavu nemůžete použít úchyt automatického vyplňování k vyplnění číselné řady, stačí je vyplnit tak, že postupně zadáváte čísla. Bude to ale zdlouhavé a časově náročné, pokud bude potřeba přečíslování mnoha buněk. Zde uvedu kód VBA k vyřešení tohoto úkolu.

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í makro do souboru Okno modulu.

Kód VBA: Automatické číslo nebo přečíslování po filtru

Sub Renumbering()
	'Updateby Extendoffice
	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).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr buněk rozsahu, které chcete automaticky očíslovat nebo přečíslovat řádky, viz screenshot:

doc-prečíslování-filtr-3

4. Pak klikněte na tlačítko OKa vaše vybrané buňky rozsahu byly postupně přečíslovány, jak je uvedeno níže:

doc-prečíslování-filtr-3

Poznámka: Tento kód zničí původní čísla řádků řady, když zrušíte funkci filtru. Nejprve tedy musíte zálohovat svá data.


Automatické číslování nebo přečíslování po filtru pomocí programu Kutools pro Excel

Pokud jste nainstalovali Kutools pro Excel, s jeho silným Vložte pořadové číslo Díky této funkci můžete do filtrovaných dat vložit pořadová čísla pouze rychle a snadno.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte buňky, které chcete přečíslovat na filtrovaná data.

2. Pak klikněte na tlačítko Kutools > Vložit > Vložte pořadové číslo, viz screenshot:

3. Pak vyskočil Vložte pořadové číslo , klepněte na tlačítko OK Nový tlačítko, viz screenshot:

doc-prečíslování-filtr-3

4. A pak vytvořte čísla seznamu sekvencí, jak potřebujete, v levé dolní části, viz screenshot:

doc-prečíslování-filtr-3

5. Po nastavení sekvence klikněte na přidat tlačítko a do dialogového okna byla přidána položka sekvence, viz screenshot:

doc-prečíslování-filtr-3

6. A pak klikněte na tlačítko Rozsah plnění  a filtrovaná data byla přečíslována najednou. Viz screenshot:

doc-prečíslování-filtr-3

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Ukázka: Automatické číslování nebo přečíslování po filtrování pomocí programu Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak automaticky číslovat sloučené buňky v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (2)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji, děkuji moc
Tento komentář byl moderátorem webu minimalizován
Deseo felicitarlo(s) por tan EXCELente trabajo. Enhorabuena!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL