Hvordan kombineres to lister uden dubletter i Excel?
Der er to lister i dit regneark, og nogle af værdierne på listerne er duplikater, og du vil kombinere disse to lister og bare lade de unikke værdier, som vist som nedenstående skærmbilleder, hvordan kan du gøre?
Kombiner lister uden dubletter med Fjern dubletter i Excel
Kombiner lister uden dubletter med VBA
Kombiner lister uden dubletter med Kutools til Excel
Kombiner lister uden dubletter med Fjern dubletter i Excel
For at kombinere to lister og fjerne duplikatværdier i Excel kan du gøre som følger:
1. Kopier en af de to lister og indsæt den i bunden af den anden liste, se skærmbillede:
2. Vælg listen, og klik på data > Fjern duplikater, se skærmbillede:
3. i Fjern duplikater dialog, hvis din kolonne ikke har overskrift, skal du fjerne markeringen Mine data har overskrifter, Og klik derefter på OK. Se skærmbillede:
4. Derefter vises en dialogboks på skærmen, der fortæller dig, at duplikaterne er blevet slettet. Klik på OK. Se skærmbillede:
Du kan se resultatet:
Kombiner lister uden dubletter med VBA
I Excel kan en VBA også hjælpe dig med at kombinere de to lister uden dubletter.
1. Holde ALT og tryk på F11 på tastaturet for at åbne en Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler, og kopier VBA til modulet.
VBA: Kombiner lister uden dubletter
Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. klik Kør knappen eller tryk på F5 at køre VBA.
4. En dialog vises på skærmen, og du kan vælge det område, du vil kombinere. Se skærmbillede:
5. klik OK, så dukkede en anden dialog op for dig at vælge en celle, der skal output det kombinerede resultat. Se skærmbillede:
6. klik OK. Du kan se listerne er blevet kombineret.
Tip: Resultatet kan ikke reservere cellernes formatering efter at have kørt ovenstående VBA.
Kombiner lister uden dubletter med Kutools til Excel
Med installeret Kutools til Excel, kan du bruge Vælg dubletter og unikke celler funktion til at løse problemet, der kombinerer to lister uden dubletter.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
1. Kopier en af de to lister, og indsæt den i bunden af den anden liste, vælg den nye liste, og klik derefter på Kutools > Vælg Værktøjer > Vælg dubletter og unikke celler. Se skærmbillede:
2. i Vælg dubletter og unikke celler dialog, tjek Alle unikke (inklusive 1. duplikater)klik Ok.
3. Derefter dukker en dialog op for at fortælle dig, hvor mange unikke værdier der er valgt, klik OK , Ophæve for at lukke to dialoger. Se skærmbillede:
4. Og kopier de valgte unikke værdier og indsæt dem i en ny kolonne. Se skærmbillede:
Klik her for at vide mere om Vælg duplikater og unikke celler.