Note: The other languages of the website are Google-translated. Back to English
English English
  • Dokumenty
  • vynikat
  • Jak odstranit duplikáty, ale zachovat první instanci v aplikaci Excel?

Jak odstranit duplikáty, ale zachovat první instanci v aplikaci Excel?

Řekněme, že v listu je seznam hodnot, který obsahuje některé duplikáty. Nyní je nutné duplikáty odstranit, ale ponechat první řádek, kde je duplicitní hodnota nalezena. V tomto článku vám ukážeme dvě metody odstraňování duplikátů, ale ponechejte první instanci v aplikaci Excel.

Odstraňte duplikáty, ale ponechejte první instanci s kódem VBA
Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel


Odstraňte duplikáty, ale ponechejte první instanci s kódem VBA

Můžete spustit níže uvedený kód VBA a odstranit duplikáty, ale ponechat první instanci ve sloupci.

1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace dialogové okno.

2. V Microsoft Visual Basic pro aplikace , klepněte na tlačítko OK Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód do okna kódu.

Kód VBA: odstranit duplikáty, ale zachovat první instanci

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	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)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. lis F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, ze kterého chcete odstranit duplikáty, a poté klikněte na ikonu OK knoflík. Viz screenshot:

Nyní můžete vidět všechny duplicitní řádky kromě toho, že první záznamy jsou odstraněny z vybraného rozsahu sloupců. Viz snímek obrazovky:


Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel

Kromě kódu VBA můžete použít Vyberte Duplikovat a jedinečné buňky užitečnost Kutools pro Excel doplněk pro snadné odstranění duplikátů, ale ponechání prvních instancí v aplikaci Excel.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Vyberte rozsah, který chcete odstranit duplikáty, ale zachovat první instance. Poté klikněte Kutools > vybrat > Vyberte Duplikovat a jedinečné buňky

2. V Vyberte Duplikovat a jedinečné buňky dialogové okno vyberte Duplikáty (kromě prvního) možnost a poté klikněte na OK knoflík. Viz screenshot:

doc odstranit duplicity1

3. V následujícím textu Vyberte Duplikovat a jedinečné buňky , klepněte na tlačítko OK OK.

doc odstranit duplicity1

4. Nyní jsou vybrány duplikáty kromě prvních instancí, stiskněte Vymazat klíč k odstranění vybraných duplikátů.

Poznámka: Chcete-li odstranit duplicitní řádky, stačí zkontrolovat Vyberte celé řádky možnost v Vyberte Duplikovat a jedinečné buňky dialogové okno a poté použijte Vymazat příkazem nabídky pravého tlačítka myši odstraníte celé duplicitní řádky.

  Pokud chcete mít bezplatnou zkušební verzi (

30
-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel


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

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
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é funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Snažím se udělat něco podobného, ​​ale ne úplně. Snažím se vzít následující, kde označuji další buňku John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow a přeměnit ji na John I Červená I Modrá I Žlutá Joe I Červená I Modrá I Žlutá plechovka pomáháte s udržením prvního duplikátu pouze v jedné buňce?
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