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

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

  1. Inicie 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 o grupo Edição e selecione Para baixo.

    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 Visual Basic macro

Aviso: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita às garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo supõe que você está 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 funcionalidades adicionais ou procedimentos de construção para atender aos seus requisitos específicos.

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

  1. Inicie o Excel.

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

  3. No menu Inserir, selecione Módulo.

  4. Insira o seguinte código em uma planilha de módulos:

    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. Em Excel 2007 e versões posteriores do Excel, selecione a guia Desenvolvedor e selecione Macros no grupo Código.

    Observação: Se você não vir a guia Desenvolvedor, talvez seja preciso austá-la. Para fazer isso, selecione Opções > arquivo >PersonalizarFaixa de Opções e, em seguida, selecione a guia Desenvolvedor na caixa de personalização no lado direito.

  8. Clique Find_Matchese 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

Precisa de mais ajuda?

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

Estas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade da tradução?
O que afetou sua experiência?

Obrigado por seus comentários!

×