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

 Kako dovoliti samo edinstvene vrednosti v Excelu?

Če želite obdržati samo enolične vrednosti, ki se vnašajo v stolpec delovnega lista, in preprečiti podvojitve, bo ta članek predstavil nekaj hitrih trikov za reševanje te naloge.

Edinstvene vrednosti na delovnem listu dovoljujejo samo s preverjanjem veljavnosti podatkov

Edinstvene vrednosti v delovnem listu s kodo VBA dovoljujte samo

Edinstvene vrednosti v delovnem listu dovoljujte samo z Kutools za Excel


Edinstvene vrednosti na delovnem listu dovoljujejo samo s preverjanjem veljavnosti podatkov

Dejansko je Preverjanje podatkov funkcija Excel vam lahko pomaga rešiti to težavo, naredite naslednje:

1. Izberite celice ali stolpce, za katere želite, da so vnesene samo edinstvene vrednosti, in kliknite datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:

doc dovoli samo enolično 1

2. v Preverjanje podatkov pogovorno okno, naredite naslednje:

(1.) Kliknite Nastavitve zavihek;

(2.) Pod Dovoli spustnega seznama izberite po meri;

(3.) In vnesite to formulo: = COUNTIF ($ E: $ E, E1) <2 (E je stolpec, za katerega želite dovoliti samo enolične vrednosti, E1 je prva celica stolpca, ki jo želite uporabiti) v Formula Polje z besedilom.

doc dovoli samo enolično 2

3. In nato kliknite OK od zdaj naprej, ko vnesete podvojeno vrednost v določen stolpec, ki ste ga nastavili, se bo pojavilo opozorilno sporočilo, ki vas bo opomnilo, glejte posnetek zaslona:

doc dovoli samo enolično 3


Edinstvene vrednosti v delovnem listu s kodo VBA dovoljujte samo

Če vas zanima koda VBA, vam lahko tudi naslednja koda naredi uslugo.

1. Z desno miškino tipko kliknite zavihek lista, za katerega želite dovoliti samo negativne številke, in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Moduli:

Koda VBA: Dovoli samo edinstvene vrednosti na delovnem 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 dovoli samo enolično 4

Opombe: V zgornji kodi je A1: A1000 je celice stolpca, za katere želite preprečiti podvajanje.

2. Nato shranite in zaprite to kodo. Ko vnesete podvojene vrednosti v celico A1: A1000, se prikaže opozorilno sporočilo, ki vas opozori, da vnos dvojnikov ni dovoljen, glejte posnetek zaslona:

doc dovoli samo enolično 5

3. Nato kliknite OK podvojena vrednost bo izbrisana.


Edinstvene vrednosti v delovnem listu dovoljujte samo z Kutools za Excel

Zgornji dve metodi lahko preprečite podvojene vnose v enem stolpcu, če jih imate Kutools za Excel, njeno Prepreči podvajanje pripomoček vam lahko pomaga hitro preprečiti podvajanje v vrsti celic in samo v enem stolpcu ali vrstici.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite stolpec ali obseg celic, v katerih želite preprečiti podvojene vrednosti, vendar dovolite samo enolične podatke.

2. Nato kliknite Kutools > Prepreči tipkanje > Prepreči podvajanje, glej posnetek zaslona:

3. In pojavilo se bo opozorilno sporočilo, ki vas bo opozorilo na Preverjanje podatkov bo odstranjena, če uporabljate to funkcijo, glejte posnetek zaslona:

doc dovoli samo enolično 7

4. Nato kliknite Da gumb za nadaljevanje in izkaže se drugo pozivno polje, ki vas opomni, katere celice so uporabile to funkcijo. Oglejte si posnetek zaslona:

doc dovoli samo enolično 8

5. In nato kliknite OK Ko vnesete nekaj podvojenih podatkov v obseg A1: D15, se prikaže pozivno polje, ki vas opozori, da podvojeni podatki niso veljavni, vnesti morate samo enolično vrednost. Oglejte si posnetek zaslona:

doc dovoli samo enolično 9

Več kot 200 funkcij lahko učinkovito izboljša vaše delo, vi lahko brezplačno prenesite Kutools za Excel.


Predstavitev: Dovoli samo edinstvene vrednosti na delovnem listu z Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
ta formula ni delovala =COUNTIF($A:$A,A2)<2
Ta komentar je moderator na spletnem mestu minimiziral
Poskusite spodnjo formulo:

=COUNTIF($A:$A,A1)<2
Ta komentar je moderator na spletnem mestu minimiziral
Pričakoval sem, da bo formula delovala tudi, ko boste prilepili. Ampak zame deluje samo, če tipkam. Ko vnašam vrednost, ki ni edinstvena, vidim sporočilo o napaki in ne smem nadaljevati. kar je super. Če pa prilepim vrednost, se ne prikaže sporočilo o napaki. Je to pričakovano ali delam nekaj narobe?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL