Hvordan slettes unikke værdier fra en kolonne i Excel?
Normalt vil de fleste af os fjerne duplikatværdier fra en kolonne, men nogle gange vil du måske fjerne de unikke værdier, der kun vises en gang i kolonnen. Denne vejledning taler om de tricks, du kun kan fjerne unikke værdier fra en kolonne i Excel.
Slet unqiue-værdier med VBA i Excel
Slet unqiue-værdier med Kutools til Excel
- Genbrug alt: Tilføj de mest anvendte eller komplekse formler, diagrammer og alt andet til dine favoritter, og genbrug dem hurtigt i fremtiden.
- Mere end 20 tekstfunktioner: Uddrag nummer fra tekststreng; Uddrag eller fjern en del af teksterne; Konverter tal og valutaer til engelske ord.
- Flet værktøjer: Flere arbejdsbøger og ark til én; Flet flere celler / rækker / kolonner uden at miste data; Flet duplikatrækker og sum.
- Opdel værktøjer: Opdel data i flere ark baseret på værdi; Én projektmappe til flere Excel-, PDF- eller CSV-filer; En kolonne til flere kolonner.
- Indsæt spring Skjulte / filtrerede rækker; Tæl og sum af baggrundsfarve; Send personaliserede e-mails til flere modtagere i bulk.
- Superfilter: Opret avancerede filterskemaer og anvend dem på alle ark; Sort efter uge, dag, hyppighed og mere; filtre med fed, formler, kommentar ...
- Mere end 300 kraftfulde funktioner; Arbejder med Office 2007-2021 og 365; Understøtter alle sprog; Nem implementering i din virksomhed eller organisation.
Slet unqiue-værdier med VBA i Excel
Brug af VBA kan hurtigt slette alle unikke værdier fra en kolonne.
1. Trykke Alt + F11 for at vise Microsoft Visual Basic til applikationer vindue.
2. Klik på i vinduet indsatte > Moduler for at vise et nyt modulvindue, kopier derefter følgende VBA-kode til modulvinduet.
VBA: Slet unikke værdier fra en kolonne.
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
4. klik OK, og alle de unikke værdier slettes.
Slet unqiue-værdier med Kutools til Excel
Hvis du ikke er fortrolig med VBA, kan du overveje at bruge Kutools til Excel's Vælg duplikat & unikke celler til at fjerne de unikke værdier i Excel.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
1. Vælg den kolonne, du vil slette de unikke værdier fra, og klik på Kutools > Vælg Værktøjer > Vælg Duplicate & Unique Cells. Se skærmbillede:
2. Kontroller i pop op-dialogboksen Kun unikke værdier og klik Ok, og luk derefter denne dialog. Se skærmbillede:
3. Derefter vises alle værdier kun én gang er valgt. Og højreklik for at klikke Slette i genvejsmenuen. Se skærmbillede:
4. i Slette dialog, tjek Hele rækken, og klik OK. Se skærmbillede:
Nu kan du se, at de unikke værdier er fjernet.
|
|
|
Tip: Hvis du bare vil fjerne celleindholdet, kan du klikke Ryd indhold fra genvejsmenuen i trin 3.
Du kan klikke her for at få flere oplysninger om Select Duplicate & Unique Cells.
Relative artikler:
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!
