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 o Kutools para Excel

---

Combine listas sem duplicatas com Remover Duplicatas no Excel

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 Dados > 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 Opere 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 o 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:

4. E copie os valores exclusivos selecionados e cole-os em uma nova coluna. Veja a imagem:

Clique aqui para saber mais sobre Selecionar células duplicadas e únicas.

---

Artigos relativos:

• Encontre valores únicos entre duas colunas
• Encontre valores duplicados em duas colunas