Como combinar duas listas sem duplicatas no Excel?

Existem duas listas em sua planilha, e alguns dos valores nas listas são duplicados, e você deseja combinar essas duas listas e apenas deixar os valores únicos, conforme mostrado nas capturas de tela abaixo, como você pode fazer?

Combine listas sem duplicatas com Remover Duplicatas no Excel

Combine listas sem duplicatas com VBA

Combine listas sem duplicatas com Kutools para Excel

Combine listas sem duplicatas com Remover Duplicatas no Excel

Incrível! Usando guias eficientes no Excel como Chrome, Edge, Firefox e Safari!
Economize 50% do seu tempo e reduza milhares de cliques do mouse para você todos os dias!

Para combinar duas listas e remover valores duplicados no Excel, você pode fazer o seguinte:

1. Copie uma das duas listas e cole-a no final da outra lista, veja a captura de tela:

2. Selecione a lista e clique em Data > Remover Duplicados, veja a captura de tela:

3. No Remover Duplicados caixa de diálogo, se sua coluna não tem cabeçalho, desmarque Meus dados têm cabeçalhosE clique em OK. Veja a imagem:

4. Em seguida, uma caixa de diálogo é exibida na tela para informar que as duplicatas foram excluídas, clique em OK. Veja a imagem:

Você pode ver o resultado:

Combine listas sem duplicatas com VBA

No Excel, um VBA também pode ajudá-lo a combinar as duas listas sem duplicatas.

1. Segure ALT pressione e pressione F11 no teclado para abrir um Microsoft Visual Basic para aplicativos janela.

2. Clique inserção > Móduloe copie o VBA para o módulo.

VBA: Combine listas sem duplicatas

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. Clique Execute ou pressione F5 para executar o VBA.

4. Uma caixa de diálogo é exibida na tela, e você pode selecionar o intervalo que deseja combinar. Veja a imagem:

5. Clique OK, então outro diálogo apareceu para você selecionar uma célula para produzir o resultado combinado. Veja a imagem:

6. Clique OK. Você pode ver que as listas foram combinadas.

Dica: O resultado não pode reservar a formatação das células após a execução do VBA acima.

Combine listas sem duplicatas com Kutools para Excel

Com instalado Kutools for Excel, você pode usar o Selecione duplicatas e células únicas função para resolver o problema que combina duas listas sem duplicatas.

Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now

1. Copie uma das duas listas e cole-a no final da outra lista, selecione a nova lista e clique em Kutools > Selecione Ferramentas > Selecione duplicatas e células únicas. Veja a imagem:

2. No Selecione duplicatas e células únicas diálogo, verificar Todos os únicos (incluindo as primeiras duplicatas), clique em Ok.

3. Em seguida, uma caixa de diálogo aparecerá para informar quantos valores exclusivos foram selecionados, clique em OK e Cancelar para fechar dois diálogos. Veja a imagem: