Como comparar dados em duas colunas para localizar duplicados no Excel

Artigo: 213367 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo descreve dois métodos que poderá utilizar para comparar dados existentes em duas colunas de folha de cálculo do Microsoft Excel e localizar entradas duplicadas.
Voltar ao topo | Submeter comentários

Mais Informação

Método 1: Utilizar uma fórmula de folha de cálculo

Para utilizar uma fórmula de folha de cálculo para comparar os dados existentes em duas colunas, siga estes passos:
  1. Inicie o Excel.
  2. Numa folha de cálculo nova, introduza os dados seguintes (deixe a coluna B vazia):
    A1: 1   B1:     C1: 3
A2: 2   B2:     C2: 5
A3: 3   B3:     C3: 8
A4: 4   B4:     C4: 2
A5: 5   B5:     C5: 0
  3. Escreva a seguinte fórmula na célula B1:
    =Se(É.ERRO(CORRESP(A1,$C$1:$C$5,0)),"",A1)
  4. Seleccione as células B1:B5.
  5. No Microsoft Office Excel 2003 e em versões anteriores do Excel, aponte para Preencher no menu Editar e clique em Para baixo.

    No Microsoft Office Excel 2007, clique em Preencher no grupo Editar e clique em Para baixo.

    Os números duplicados são apresentados na coluna B, tal como no exemplo seguinte:
       A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0

Método 2: Utilizar uma macro de Visual Basic

A Microsoft fornece exemplos de programação apenas a título informativo, sem garantia expressa ou implícita, incluindo, sem limitação, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador conhece a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Para utilizar uma macro de Visual Basic para comparar os dados existentes em duas colunas, utilize os passos descritos no exemplo seguinte:
  1. Inicie o Excel.
  2. Prima ALT+F11 para iniciar o editor do Visual Basic.
  3. No menu Insert, clique em Module.
  4. Introduza o código seguinte numa folha 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. Prima ALT+F11 para regressar ao Excel.
  6. Introduza os dados seguintes (deixe a coluna B vazia):
    A1: 1   B1:     C1: 3
A2: 2   B2:     C2: 5
A3: 3   B3:     C3: 8
A4: 4   B4:     C4: 2
A5: 5   B5:     C5: 0
  7. Seleccione o intervalo A1:A5.
  8. No Excel 2003, e em versões anteriores do Excel, aponte para Macro no menu Ferramentas e clique em Macros.

    No Excel 2007, clique no separador Programador e clique em Macros no grupo Código.
  9. Clique em Find_Matches e clique em Executar.
Os números duplicados são apresentados na coluna B. Os números correspondentes serão colocados junto da primeira coluna, conforme ilustrado aqui: 
   A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0
Voltar ao topo | Submeter comentários

Propriedades

Artigo: 213367 - Última revisão: terça-feira, 25 de Março de 2008 - Revisão: 4.1
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbdtacode kbhowto kbprogramming KB213367
Voltar ao topo | Submeter comentários

Submeter comentários

 
Voltar ao topoVoltar ao topo