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

 Jak povolit pouze jedinečné hodnoty v aplikaci Excel?

Pokud chcete zachovat zadávání pouze jedinečných hodnot ve sloupci listu a zabránit duplikátům, tento článek představí několik rychlých triků, jak se s tímto úkolem vypořádat.

Pouze jedinečné hodnoty v listu povolte pomocí Ověření dat

V listu s kódem VBA povolte pouze jedinečné hodnoty

V Kutools pro Excel povolte pouze jedinečné hodnoty v listu


Pouze jedinečné hodnoty v listu povolte pomocí Ověření dat

Ve skutečnosti, Ověření dat funkce aplikace Excel vám pomůže tento problém vyřešit, postupujte takto:

1. Vyberte buňky nebo sloupec, do kterého chcete zadat pouze jedinečné hodnoty, a klepněte na Data > Ověření dat > Ověření dat, viz screenshot:

doc povolit pouze jedinečný 1

2. V Ověření dat V dialogovém okně proveďte následující operace:

(1.) Klikněte na Nastavení karta;

(2.) Pod povolit rozevírací seznam vyberte Zvyk;

(3.) A zadejte tento vzorec: = COUNTIF ($ E: $ E, E1) <2 (E je sloupec, ve kterém chcete povolit pouze jedinečné hodnoty, E1 je první buňka sloupce, který chcete použít) do Vzorec Textové pole.

doc povolit pouze jedinečný 2

3. A pak klikněte na tlačítko OK Tlačítko, od této chvíle, když zadáte duplicitní hodnotu do konkrétního sloupce, který nastavíte, zobrazí se varovná zpráva, která vám připomene, viz screenshot:

doc povolit pouze jedinečný 3


V listu s kódem VBA povolte pouze jedinečné hodnoty

Pokud vás zajímá kód VBA, následující kód vám může udělat laskavost.

1. Klikněte pravým tlačítkem na kartu listu, který chcete povolit pouze záporná čísla, a vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do mezery Modul:

Kód VBA: Povolit pouze jedinečné hodnoty v listu:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

doc povolit pouze jedinečný 4

Poznámka: Ve výše uvedeném kódu je A1: A1000 jsou buňky sloupců, které chcete zabránit duplikování.

2. Poté tento kód uložte a zavřete, nyní, když zadáte duplicitní hodnoty do buňky A1: A1000, zobrazí se varovná zpráva, která vám připomene, že duplicitní položka není povolena, viz screenshot:

doc povolit pouze jedinečný 5

3. Pak klikněte na tlačítko OK tlačítko, duplicitní hodnota bude odstraněna.


V Kutools pro Excel povolte pouze jedinečné hodnoty v listu

Výše uvedené dvě metody mohou zabránit duplicitním položkám v jednom sloupci, pokud máte Kutools pro Excel, to je Zabraňte duplikování nástroj vám pomůže rychle zabránit duplicitě v řadě buněk a pouze v jednom sloupci nebo řádku.

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 sloupec nebo oblast buněk, kterým chcete zabránit duplicitním hodnotám, ale povolte pouze jedinečná data.

2. Pak klikněte na tlačítko Kutools > Zabraňte psaní > Zabraňte duplikování, viz screenshot:

3. A vyskočí varovná zpráva, která vám připomene Ověření dat bude odstraněno, pokud použijete tuto funkci, viz screenshot:

doc povolit pouze jedinečný 7

4. Pak klikněte na tlačítko Ano pokračujte a zobrazí se další okno s výzvou, které vám připomene, na které buňky byla tato funkce použita. Viz screenshot:

doc povolit pouze jedinečný 8

5. A pak klikněte na tlačítko OK Když nyní zadáte duplicitní data v rozsahu A1: D15, zobrazí se výzva, která vám připomene, že duplicitní data nejsou platná, stačí zadat jedinečnou hodnotu. Viz screenshot:

doc povolit pouze jedinečný 9

Více než 200 funkcí může vaši práci zefektivnit, vy můžete stáhněte si zdarma Kutools pro Excel.


Demo: Povolit pouze jedinečné hodnoty v listu s programem 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ď!

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 (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
tento vzorec nefungoval =COUNTIF($A:$A,A2)<2
Tento komentář byl moderátorem webu minimalizován
Zkuste prosím níže uvedený vzorec:

=COUNTIF($A:$A,A1)<2
Tento komentář byl moderátorem webu minimalizován
Čekal jsem, že vzorec bude fungovat, když vložíte také. Ale pro mě to funguje jen když píšu. Při zadávání hodnoty, která není jedinečná, se mi zobrazí chybová masáž a není mi dovoleno pokračovat. Což je skvělé. Pokud však hodnotu vložím, nezobrazí se žádná chybová zpráva. Očekává se to, nebo dělám něco špatně?
Zatím zde nejsou žádné komentáře

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