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

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Edge, Firefox e Safari!
Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

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 > Modulie 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 ed Annulla per chiudere due finestre di dialogo. Vedi screenshot: