Hvordan tillader jeg kun unikke værdier i Excel?
Hvis du kun vil beholde unikke værdier i en kolonne i regnearket og forhindre duplikater, introducerer denne artikel nogle hurtige tricks, som du kan håndtere denne opgave.
Tillad kun unikke værdier i regneark med datavalidering
Tillad kun unikke værdier i regneark med VBA-kode
Tillad kun unikke værdier i regneark med Kutools til Excel
Tillad kun unikke værdier i regneark med datavalidering
Faktisk den Datavalidering funktion af Excel kan hjælpe dig med at løse dette problem, skal du gøre som følger:
1. Vælg de celler eller kolonne, som du kun ønsker at indtaste unikke værdier, og klik derefter på data > Datavalidering > Datavalidering, se skærmbillede:
2. I Datavalidering dialogboksen, skal du udføre følgende handlinger:
(1.) Klik på Indstillinger fanen;
(2.) Under Tillad rulleliste, vælg Tilpasset;
(3.) Og indtast denne formel: = COUNTIF ($ E: $ E, E1) <2 (E er den kolonne, som du kun vil tillade unikke værdier, E1 er den første celle i den kolonne, du vil bruge) i Formula tekstboks.
3. Og klik derefter på OK knap, fra nu af, når du indtaster dobbeltværdi i den specifikke kolonne, du indstiller, vises en advarselsmeddelelse for at minde dig om, se skærmbillede:
Tillad kun unikke værdier i regneark med VBA-kode
Hvis du er interesseret i VBA-koden, kan følgende kode også gøre dig en tjeneste.
1. Højreklik på arkfanen, hvor du kun vil tillade negative tal, og vælg Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme felt Moduler:
VBA-kode: Tillad kun unikke værdier i regnearket:
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
Bemærk: I ovenstående kode er A1: A1000 er de søjleceller, som du vil forhindre duplikering.
2. Gem derefter og luk denne kode, nu når du indtaster duplikatværdier i celle A1: A1000, vises en advarselsmeddelelse for at minde dig om, at duplikatposten ikke er tilladt, se skærmbillede:
3. Klik derefter på OK knappen slettes den dobbelte værdi.
Tillad kun unikke værdier i regneark med Kutools til Excel
Ovennævnte to metoder kan kun forhindre duplikatposter i en kolonne, hvis du har Kutools til Excel, dens Undgå duplikat værktøj kan hjælpe dig med hurtigt at forhindre duplikering i en række celler og kun en kolonne eller række.
| Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Vælg den kolonne eller det celleområde, som du vil forhindre duplikatværdierne, men tillad kun unikke data.
2. Klik derefter på Kutools > Forhindre indtastning > Undgå duplikat, se skærmbillede:
3. Og der vises en advarselsmeddelelse for at minde dig om Datavalidering fjernes, hvis denne funktion anvendes, se skærmbillede:
4. Klik derefter på Ja knappen for at fortsætte, og en anden hurtigboks vises for at minde dig om, hvilke celler der er blevet anvendt denne funktion. Se skærmbillede:
5. Og klik derefter på OK knap, nu, når du indtaster nogle duplikatdata i området A1: D15, vises en hurtigboks for at minde dig om, at duplikatdata ikke er gyldige, du skal kun indtaste den unikke værdi. Se skærmbillede:
Mere end 200 funktioner kan gøre dit job effektivt, det kan du download Kutools til Excel til gratis trail.
Demo: Tillad kun unikke værdier i regneark med Kutools til Excel
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
