Come combinare due elenchi senza duplicati in Excel?

Ci sono due elenchi nel tuo foglio di lavoro e alcuni dei valori negli elenchi sono duplicati e vuoi combinare questi due elenchi e lasciare semplicemente i valori univoci, come mostrato negli screenshot seguenti, come puoi fare?

Combina elenchi senza duplicati con Rimuovi duplicati in Excel

Combina elenchi senza duplicati con VBA

Combina elenchi senza duplicati con Kutools per Excel

---

Combina elenchi senza duplicati con Rimuovi duplicati in Excel

Per combinare due elenchi e rimuovere i valori duplicati in Excel, puoi fare come segue:

1. Copia uno dei due elenchi e incollalo nella parte inferiore dell'altro elenco, vedi screenshot:

2. Selezionare l'elenco e fare clic su Dati > Rimuovi duplicati, vedi screenshot:

3. Nel Rimuovi duplicati finestra di dialogo, se la tua colonna non ha intestazione, deseleziona I miei dati hanno intestazioni, Quindi fare clic OK. Vedi screenshot:

4. Quindi viene visualizzata una finestra di dialogo sullo schermo per informarti che i duplicati sono stati eliminati, fare clic su OK. Vedi screenshot:

Puoi vedere il risultato:

---

Combina elenchi senza duplicati con VBA

In Excel, un VBA può anche aiutarti a combinare i due elenchi senza duplicati.

1. Aspetta ALT pulsante e premere F11 sulla tastiera per aprire un file Microsoft Visual Basic per l'applicazione finestra.

2. Clic inserire > Moduloe copia il VBA nel modulo.

VBA: combina elenchi senza duplicati

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. Clic Correre pulsante o premere F5 per eseguire VBA.

4. Una finestra di dialogo visualizzata sullo schermo e puoi selezionare l'intervallo che desideri combinare. Vedi screenshot:

5. Clic OK, quindi è comparsa un'altra finestra di dialogo per selezionare una cella per l'output del risultato combinato. Vedi screenshot:

6. Clic OK. Puoi vedere che gli elenchi sono stati combinati.

Suggerimento: il risultato non può riservare la formattazione delle celle dopo aver eseguito il VBA sopra.

---

Combina elenchi senza duplicati con Kutools per Excel

Con installato Kutools for Excel, è possibile utilizzare il comando Seleziona duplicati e celle uniche funzione per risolvere il problema che combina due liste senza duplicati.

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now

1. Copiare uno dei due elenchi e incollarlo in fondo all'altro elenco, selezionare il nuovo elenco, quindi fare clic su Kutools > Selezionare Strumenti > Seleziona duplicati e celle uniche. Vedi screenshot:

2. Nel Seleziona duplicati e celle uniche dialogo, controlla Tutti gli unici (inclusi i primi duplicati), fare clic su Ok.

3. Quindi viene visualizzata una finestra di dialogo per indicare quanti valori univoci sono stati selezionati, fare clic su OK e Annulla per chiudere due finestre di dialogo. Vedi screenshot:

4. E copia i valori univoci selezionati e incollali in una nuova colonna. Vedi screenshot:

Fare clic qui per saperne di più su Seleziona duplicati e celle uniche.

---

Articoli relativi:

• Trova valori univoci tra due colonne
• Trova valori duplicati in due colonne