Como comparar duas colunas no excel destacando valores diferentes

Pode utilizar os seguintes métodos para comparar dados em duas colunas da Microsoft Excel de base de dados e encontrar entradas duplicadas. 

1. Comece a Excel.

2. Numa nova ficha, introduza os seguintes dados como exemplo (deixe a coluna B vazia):

   A

   B

   C

   1

   2

   3

   4

   5

   1		3
   2		5
   3		8
   4		2
   5		0

3. Escreva 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 Para Baixo.

   Os números duplicados são apresentados na coluna B, como no exemplo seguinte: 

   A

   B

   C

   1

   2

   3

   4

   5

   1		3
   2	2	5
   3	3	8
   4		2
   5	5	0

Aviso: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita, às garantias implícitas de comerciante ou adequação a um fim específico. Este artigo assume que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, não modificará estes exemplos para fornecer procedimentos construtivos ou funcionalidades adicionadas para satisfazer os seus requisitos específicos.

Para utilizar uma Visual Basic macro para comparar os dados em duas colunas, utilize os passos no exemplo seguinte:

1. Inicie o Excel.

2. Prima Alt+F11 para iniciar o Visual Basic Editor de Ações a Fazer.

3. No menu Inserir, selecione Módulo.

4. Introduza o seguinte código 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 à Excel.

   1. Introduza os seguintes dados como exemplo (deixe a coluna B vazia):
       

      A

      B

      C

      1

      2

      3

      4

      5

      1		3
      2		5
      3		8
      4		2
      5		0

6. Selecione a célula A1 a A5.

7. No Excel 2007 e versões posteriores do Excel, selecione o separador Programador e, em seguida, selecione Macros no grupo Código.

   Nota: Se não vir o separador Programador, poderá ter de o ativor. Para o fazer, selecione Opções do > ficheiro > Personalizar o Separador e, em seguida, selecione o separador Programador na caixa de personalização no lado direito.

8. Clique em Find_Matches e,em seguida, clique em Executar.

   Os números duplicados são apresentados na coluna B. Os números que correspondem serão colocados junto à primeira coluna, como ilustrado aqui:

   A

   B

   C

   1

   2

   3

   4

   5

   1		3
   2	2	5
   3	3	8
   4		2
   5	5	0