You kan kjøre under VBA-kode for å fjerne duplikater, men beholde første omgang i en kolonne.
1. Trykk Alt + F11 for å åpne Microsoft Visual Basic for dialog Applications boks.
2. I Microsoft Visual Basic for dialog Applications klikker Sett > Modul. Deretter kopiere og lime inn under koden i kodevinduet
VBA-kode. Fjerne duplikater, men beholde første omgang
Sub TrimExcessSpaces () Dim RNG Som Range Dim WorkRng Som Range Dim dic As Variant Set DIC = Create ("Scripting .Dictionary ") On Error Resume Next xTitleId =" KutoolsforExcel "Set WorkRng = Application.Selection Set WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Columns (1) For Hver RNG I WorkRng.Cells DIC (Rng.Value) = "" Neste WorkRng.ClearContents WorkRng.Range ("A1"). Resize (UBound (dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose (DIC .Keys) End Sub3. Trykk F5 for å kjøre koden. I spratt opp KutoolsforExcel dialogboksen velger området du ønsker å fjerne duplikater, og klikk deretter på OK-knappen. Se skjermbilde: største nettstedene Nå kan du se alle dupliserte rader med unntak av de første postene er fjernet fra den valgte kolonnen range. Se skjermbilde:
Fjern duplikater men beholde første omgang med Kutools for Excel
Foruten VBA-kode, kan du bruke Select Duplicate & Unik Cells nytten av Kutools for Excel-tillegg for enkelt å fjerne duplikater, men beholde de første tilfellene i Excel
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Merk området du ønsker å fjerne duplikater, men beholde første tilfeller. Klikk deretter Kutools > Velg > Velg Duplicate & Unike Cells. Se skjermbilde:
to. I Velg Duplicate & Unike Cells dialogboksen velger duplikater (unntatt første en) alternativet, og klikk deretter på OK-knappen. Se skjermbilde:
tre. I det følgende Select Duplicate & Unike Cells dialogboksen, klikk på OK.
4. Nå duplikatene er valgt med unntak av de første tilfellene, trykk på slettetasten for å fjerne de valgte duplikater
. Merk: Hvis du vil slette dupliserte rader, du trenger bare å sjekke Velg hele rader alternativ i Select duplisere & Dialogboksen unike Cells-boksen, og deretter bruke kommandoen Slett fra høyreklikkmenyen for å fjerne hele dupliserte rader
vite flere detaljer om den Select Duplicate &.; . Unik Cells nytten av Kutools for Excel
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Datamaskin læring 