If du har en liste over tekststreng, nå må du fjerne de overflødige tegnene som følgende skjermbilde vises. Her kan jeg snakke om en VBA-kode for å håndtere det
en.. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Fjerne dupliserte tegnene i tekststreng i en celle
Funksjon RemoveDupes1 (pWorkRng As Range) As String'Updateby20140924Dim xVerdi Som StringDim xChar Som StringDim xOutValue Som StringSet xDic = Create ("Scripting.Dictionary") xVerdi = pWorkRng.ValueFor i = 1 Til VBA.Len (xVerdi) xChar = VBA.Mid (xVerdi, i, 1) Hvis xDic.Exists (xChar) Da Else xDic (xChar) = "" xOutValue = xOutValue & xChar End IfNextRemoveDupes1 = xOutValueEnd Function3. Deretter lagre og lukke denne koden, kan du gå tilbake til regnearket, og skriv inn denne formelen = removedupes1 (A2) (A2 er data cellen du ønsker å fjerne duplikater fra) i en tom celle i tillegg til dine data, se skjermbilde:
4. Og deretter drar fyllhåndtaket over til celleområdet som du vil bruke denne formelen, har alle de dupliserte tegnene er fjernet fra hver celle umiddelbart.
Fjern dupliserte ord atskilt med tegnsetting med brukerdefinerte funksjonen
Hvis det er noen ord som er atskilt med visse skilletegn i en celle, kan du også fjerne dupliserte ord som du vil. Vennligst gjør du med følgende trinn:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Fjerne dupliserte ord atskilt med tegnsetting i en celle
Funksjon RemoveDupes2 (txt As String, Optional delim As String = "") As String Dim x ' Updateby20140924 Med Create ("Scripting.Dictionary") .CompareMode = vbTextCompare For hver X i Split (txt, delim) Hvis Trim (x) < > "" Og ikke .exists (Trim (x)) Så .Legg Trim (x), Ingenting Neste Hvis .Count > 0 Then RemoveDupes2 = Delta (.keys, delim) End WithEnd Function3. Deretter lagre og lukke denne koden, tilbake til regnearket, og skriv inn denne formelen = RemoveDupes2 (A2, ",") inn i en tom celle ved siden av dine data, kan du se skjermdump:
4. Deretter kopierer ned formelen til dine behov celler, og alle de dupliserte ord er fjernet fra hver celler. Se skjermbilde:
Merk: I formelen ovenfor indikerer A2 cellen som du vil bruke, og komma (,) står for skilletegn som skiller ordene i en celle, kan du endre det til andre punctuations til ditt behov.
Fjerne dupliserte verdier fra en kolonne med Kutools for Excel
Hvis du har en liste over verdier som inneholder noen eksemplarer tekst, nå, du ønsker å fjerne alle dupliserte verdier fra kolonne som følgende skjermbilde vises, hvordan kan du fjerne duplikater raskt og enkelt? Med Kutools for Excel Velg Duplicate & Unike Cells har, kan du velge like verdier på en gang, og deretter fjerne dem selv
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå. Etter å ha installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
en. Velg kolonnen av data som du ønsker å fjerne like verdier.
2. Klikk Kutools > Velg > Velg Duplicate & Unike Cells, se skjermbilde:
tre. I Velg Duplicate & Unike Cells dialogboksen velger duplikater (Unntatt en st en) eller Alle duplikater (Inkludert en st en) som du trenger, se skjermbilde:
4. Klikk deretter på OK-knappen: product: (1.) Hvis du velger duplikater (Unntatt en st en), alle like verdier, men den første som har blitt valgt, nå, kan du slette dem ved å trykke på slettetasten for å få følgende resultater : product: (2.) Hvis du velger Alle duplikater (Inkludert en st en), alle de dupliserte data vil bli valgt og bare la de unike seg, deretter trykke Delete-tasten for å slette alle duplikatene som følgende skjermbilder som vises:
Merk: Hvis du sjekker Velg hele rader alternativet i dialogboksen, vil hele bestemte rader bli valgt, og du kan fjerne rader ved å klikke Home > Slett > Slett Sheet Rader
Klikk for å vite mer om denne Select Duplicate &.; Unik Cells verktøyet.
Gratis nedlasting Kutools for Excel Nå
Hvis du har en liste over verdier som inneholder noen eksemplarer tekst, nå, du ønsker å fjerne alle dupliserte verdier fra kolonne som følgende skjermbilde vises, hvordan kan du fjerne duplikater raskt og enkelt? Med Kutools for Excel Velg Duplicate & Unike Cells har, kan du velge like verdier på en gang, og deretter fjerne dem selv
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå. Etter å ha installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
en. Velg kolonnen av data som du ønsker å fjerne like verdier.
2. Klikk Kutools > Velg > Velg Duplicate & Unike Cells, se skjermbilde:
tre. I Velg Duplicate & Unike Cells dialogboksen velger duplikater (Unntatt en st en) eller Alle duplikater (Inkludert en st en) som du trenger, se skjermbilde:
4. Klikk deretter på OK-knappen: product: (1.) Hvis du velger duplikater (Unntatt en st en), alle like verdier, men den første som har blitt valgt, nå, kan du slette dem ved å trykke på slettetasten for å få følgende resultater : product: (2.) Hvis du velger Alle duplikater (Inkludert en st en), alle de dupliserte data vil bli valgt og bare la de unike seg, deretter trykke Delete-tasten for å slette alle duplikatene som følgende skjermbilder som vises:
Merk: Hvis du sjekker Velg hele rader alternativet i dialogboksen, vil hele bestemte rader bli valgt, og du kan fjerne rader ved å klikke Home > Slett > Slett Sheet Rader
Klikk for å vite mer om denne Select Duplicate &.; Unik Cells verktøyet.
Gratis nedlasting Kutools for Excel Nå