Using VBA kan raskt slette alle unike verdier fra én kolonne.
1. Trykk Alt + F11 for å vise Microsoft Visual Basic for Applications vinduet.
2. I vinduet klikker du Sett inn > Modul for å vise en ny modul vindu, og deretter kopiere følgende VBA-kode i modulvinduet
VBA. Slett unike verdier fra en kolonne.
Sub DeleteUnique () 'Updateby20140617Dim RNG Som RangeDim WorkRng Som RangeDim Arr Som VariantDim Dic Som VariantOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Columns (1) Sett Dic = Create ("Scripting.Dictionary") Arr = WorkRng.ValueFor i = 1 Til UBound (Arr, 1) xVerdi = Arr (i, 1) Dic ( xVerdi) = Dic (xVerdi) + 1NextWorkRng.ClearContentsArr = WorkRng.ValuexIndex = 1 For Hver xKey I Dic.keys xVerdi = Dic (xKey) Hvis xVerdi > 1 Da For i = 1 Til xVerdi Arr (xIndex, 1) = xKey xIndex = xIndex + 1 Neste Slutt IfNextWorkRng.Value = ArrEnd Sub3. Klikk Kjør for å kjøre VBA-kode, og en dialog KutoolsforExcel spretter ut for å velge et område å arbeide. Se skjermbilde:
fire. Klikk OK, og alle de unike verdiene slettes
Slett unqiue verdier med Kutools for Excel
Hvis du ikke er kjent med VBA, kan du vurdere å bruke Kutools for Excel Velg Duplicate &.; Unike Cells har å fjerne de unike verdiene i Excel.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
en. Velg kolonnen du vil slette de unike verdiene fra, og klikk Kutools > Velg Verktøy > Velg Duplicate & Unike Cells. Se skjermbilde:
to. I pop-out dialog, sjekk unike verdier, og klikk OK, og deretter gå ut av denne dialogen. Se skjermbilde:
tre. Så alle verdier vises bare én gang har blitt valgt. Og høyreklikk for å klikke Slett på hurtigmenyen. Se skjermbilde:
4. I dialogboksen Slett, sjekk Hele raden, og klikk OK. Se skjermbilde: største nettstedene Nå kan du se de unike verdiene er fjernet
. Tips: Hvis du bare ønsker å fjerne celleinnholdet, kan du klikke Fjern Innhold fra kontekstmenyen i trinn 3.
Du kan klikke her for å vite mer informasjon om Velg Duplicate & Unike Cells.
Relative Artikler:
Slett alle kommentarer i Excel
Fjerne dupliserte rader i Excel
Slett alle kommentarer i Excel
Fjerne dupliserte rader i Excel