Gå til hovedindhold

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


pil blå højre boble 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:



pil blå højre boble 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.


pil blå højre boble 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.


Relative artikler:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations