Přejít k hlavnímu obsahu

Jak odstranit jedinečné hodnoty ze sloupce v aplikaci Excel?

Většina z nás obvykle chce odstranit duplicitní hodnoty ze sloupce, ale někdy budete chtít odstranit jedinečné hodnoty, které se ve sloupci objeví pouze jednou. Tento kurz hovoří o tricích, jak odstranit jedinečné hodnoty pouze ze sloupce v aplikaci Excel.

Odstraňte nepřesné hodnoty pomocí VBA v aplikaci Excel

Odstraňte nepřesné hodnoty pomocí programu Kutools pro Excel


šipka modrá pravá bublina Odstraňte nepřesné hodnoty pomocí VBA v aplikaci Excel

Pomocí VBA můžete rychle odstranit všechny jedinečné hodnoty z jednoho sloupce.

1. lis Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.

2. V okně klikněte na Vložit > Modul pro zobrazení nového okna modulu, potom zkopírujte následující kód VBA do okna modulu.

VBA: Odstraňte jedinečné hodnoty ze sloupce.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
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)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3. cvaknutí Běh tlačítko pro spuštění kódu VBA, a Kutools pro Excel Zobrazí se dialogové okno pro výběr rozsahu, který má fungovat. Viz screenshot:

 

doc-delete-unique-1

4. cvaknutí OKa všechny jedinečné hodnoty jsou odstraněny.


šipka modrá pravá bublina Odstraňte nepřesné hodnoty pomocí programu Kutools pro Excel

Pokud nejste obeznámeni s VBA, můžete zvážit použití Kutools pro Excel Vyberte funkci Duplikovat a jedinečné buňky k odstranění jedinečných hodnot v aplikaci Excel.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

1. Vyberte sloupec, ze kterého chcete odstranit jedinečné hodnoty, a klikněte na Kutools > Vyberte Nástroje > Vyberte Duplikovat a jedinečné buňky. Viz snímek obrazovky:

doc-delete-unique-2

2. Ve vyskakovacím dialogovém okně zaškrtněte Pouze jedinečné hodnoty a klepněte na tlačítko Oka poté zavřete toto dialogové okno. Viz screenshot:

doc-delete-unique-3

3. Poté se všechny hodnoty zobrazí pouze jednou. A klikněte pravým tlačítkem a klikněte Vymazat v místní nabídce. Viz snímek obrazovky:

doc-delete-unique-4

4. V Vymazat V dialogovém okně zaškrtněte Celý řádek a klikněte na OK. Viz snímek obrazovky:

doc-delete-unique-5

Nyní můžete vidět, že jedinečné hodnoty jsou odstraněny.

doc-delete-unique-6 doc-šipka doc-delete-unique-7

Tip: Pokud chcete pouze odstranit obsah buňky, můžete kliknout Vymazat obsah z místní nabídky v kroku 3.

Kliknutím sem získáte další informace o výběru duplicitních a jedinečných buněk.


Relativní články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It works great! Thanks!Only issue is it doesn't extend the selection to delete the whole row. But it works. Thanks.
This comment was minimized by the moderator on the site
VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined. I'd say a good 80% of copied code from net does not work at first shot.
This comment was minimized by the moderator on the site
You are a life saver. God bless you
This comment was minimized by the moderator on the site
How would one tweak the VBA code to delete the entire row based on unique value of one field only? The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field. Thank you,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations