Hvordan fjernes dubletter, men beholder første instans i Excel?
Lad os sige, der er en liste over værdier i dit regneark, der indeholder nogle dubletter, nu skal du fjerne dubletterne, men hold den første række, hvor den duplikerede værdi findes. I denne artikel viser vi dig to metoder til fjernelse af dubletter, men hold første instans i Excel.
Fjern dubletter, men hold første instans med VBA-kode
Fjern dubletter, men hold første instans med Kutools til Excel
Fjern dubletter, men hold første instans med VBA-kode
Du kan køre nedenstående VBA-kode for at fjerne dubletter, men beholde første instans i en kolonne.
1. Trykke andre + F11 at åbne Microsoft Visual Basic til applikationer dialog boks.
2. i Microsoft Visual Basic til applikationer dialogboksen, klik indsatte > Moduler. Kopier og indsæt derefter nedenstående kode i kodevinduet.
VBA-kode: fjern dubletter, men behold første instans
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
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)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3. Trykke F5 nøgle for at køre koden. I pop op KutoolsforExcel i dialogboksen, vælg det område, du vil fjerne dubletter, og klik derefter på OK knap. Se skærmbillede:
Nu kan du se alle duplikerede rækker undtagen at de første poster fjernes fra det valgte kolonneområde. Se skærmbillede:
Fjern dubletter, men hold første instans med Kutools til Excel
Ved siden af VBA-koden kan du bruge Vælg Duplicate & Unique Cells nytte af Kutools til Excel tilføjelse for nemt at fjerne dubletter, men beholde de første forekomster i Excel.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. Vælg det område, du vil fjerne dubletter, men bevar de første forekomster. Klik derefter på Kutools > Type > Vælg Duplicate & Unique Cells.
2. i Vælg Duplicate & Unique Cells dialogboksen skal du vælge Kopier (undtagen 1.) og klik derefter på OK knap. Se skærmbillede:
3. I det følgende Vælg Duplicate & Unique Cells dialogboksen, klik OK.
4. Nu er duplikaterne valgt undtagen de første forekomster. Tryk på Slette nøgle for at fjerne de valgte dubletter.
Bemærk: Hvis du vil slette de duplikerede rækker, skal du bare kontrollere Vælg hele rækker valgmulighed i Vælg Duplicate & Unique Cells dialogboksen, og anvend derefter Slette kommandoen i højreklikmenuen for at fjerne hele duplikatrækkerne.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Fjern dubletter, men hold første instans med Kutools til Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!
