Como comparar dados em duas colunas para localizar duplicatas no Excel

Você pode usar os métodos a seguir para comparar dados em duas colunas de planilha do Microsoft Excel e localizar entradas duplicadas. 

Método 1: usar uma fórmula de planilha

  1. Inicie o Excel.

  2. Em uma nova planilha, insira os seguintes dados como exemplo (Deixe a coluna B vazia):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Digite a seguinte fórmula na célula B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Selecione a célula B1 a B5.

  5. No Excel 2007 e versões posteriores do Excel, selecione preencher no grupo edição e, em seguida, selecione abaixo.

    Os números duplicados são exibidos na coluna B, como no exemplo a seguir: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Método 2: usar uma macro do Visual Basic

Aviso: A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, entre outros, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, eles não modificarão esses exemplos para fornecer funcionalidade adicional ou construir procedimentos para atender a seus requisitos específicos.

Para usar uma macro do Visual Basic para comparar os dados em duas colunas, use as etapas do seguinte exemplo:

  1. Inicie o Excel.

  2. Pressione ALT + F11 para iniciar o editor do Visual Basic.

  3. No menu Inserir , selecione módulo.

  4. Digite o código a seguir em uma planilha de módulo:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
  5. Pressione ALT + F11 para retornar ao Excel.

    1. Insira os dados a seguir como exemplo (Deixe a coluna B vazia):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Selecione a célula a1 a a5.

  7. No Excel 2007 e versões posteriores do Excel, selecione a guia desenvolvedor e, em seguida, selecione macros no grupo código .

    Observação: Se você não vir a guia desenvolvedor , talvez seja necessário ativá-la. Para fazer isso, selecione arquivo > Opções > Personalizar faixade opções e, em seguida, selecione a guia desenvolvedor na caixa personalização no lado direito.

  8. Clique em Find_Matchese, em seguida, clique em executar.

    Os números duplicados são exibidos na coluna B. Os números correspondentes serão colocados ao lado da primeira coluna, conforme ilustrado aqui:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Observação:  Esta página foi traduzida automaticamente e pode apresentar erros gramaticais ou imprecisões. Nosso objetivo é que este conteúdo seja útil para você. Você pode nos dizer se as informações foram úteis? Use o artigo em inglês como referência.​

Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×