Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Unieke waarden uit een kolom verwijderen in Excel?

Meestal willen de meesten van ons dubbele waarden uit een kolom verwijderen, maar soms wilt u mogelijk de unieke waarden verwijderen die maar één keer in de kolom voorkomen. Deze tutorial heeft het over de trucs voor u om unieke waarden alleen uit een kolom in Excel te verwijderen.

Unqiue-waarden verwijderen met VBA in Excel

Unqiue-waarden verwijderen met Kutools voor Excel

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Unqiue-waarden verwijderen met VBA in Excel


Met behulp van VBA kunnen snel alle unieke waarden uit één kolom worden verwijderd.

1. druk op Alt + F11 om de Microsoft Visual Basic voor toepassingen venster.

2. Klik in het venster bijvoegsel > module om een ​​nieuw modulevenster te tonen, kopieer dan de volgende VBA-code naar het modulevenster.

VBA: unieke waarden uit een kolom verwijderen.

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. klikken lopen om de VBA-code uit te voeren, en a KutoolsforExcel dialoogvenster verschijnt om een ​​bereik te selecteren dat werkt. Zie screenshot:

doc-delete-unieke-1

4. klikken OKen alle unieke waarden worden verwijderd.


pijl blauwe rechterbel Unqiue-waarden verwijderen met Kutools voor Excel

Als u niet bekend bent met VBA, kunt u overwegen om Kutools te gebruiken voor de functie Dupliceren en unieke cellen van Excel selecteren om de unieke waarden in Excel te verwijderen.

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 30-dagen. Get it Now

1. Selecteer de kolom waarvan u de unieke waarden wilt verwijderen en klik op Kutools > Selecteer Tools > Selecteer Dupliceren en unieke cellen. Zie screenshot:

doc-delete-unieke-2

2. Controleer in het pop-outvenster Alleen unieke waarden en klik op Oken sluit dit dialoogvenster. Zie screenshot:

doc-delete-unieke-3

3. Dan verschijnen alle waarden die slechts één keer zijn geselecteerd. En klik met de rechtermuisknop om te klikken Verwijder in het contextmenu. Zie screenshot:

doc-delete-unieke-4

4. In de Verwijder dialoogvenster, selecteer Gehele rij en klik op OK. Zie screenshot:

doc-delete-unieke-5

Nu kunt u zien dat de unieke waarden zijn verwijderd.

doc-delete-unieke-6 doc-arrow doc-delete-unieke-7

Tip: Als u alleen de inhoud van de cel wilt verwijderen, kunt u klikken Duidelijke inhoud uit het contextmenu in stap 3.

U kunt hier klikken voor meer informatie over Selecteer dubbele en unieke cellen.


Relatieve artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mort W · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Mistereri · 3 years ago
    You are a life saver. God bless you
  • To post as a guest, your comment is unpublished.
    Rossini · 5 years ago
    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,