Pode utilizar os seguintes métodos para comparar dados em duas colunas de folha de cálculo do Microsoft Excel e encontrar entradas duplicadas.
Método 1: Utilizar uma fórmula de folha de cálculo
-
Inicie o Excel.
-
Numa nova folha de cálculo, introduza 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
-
Digite a seguinte fórmula na célula B1: =SE(É.ERRO(CORRESP(A1,$C$1:$C$5,0)),"",A1)
-
Selecione a célula B1 a B5.
-
Selecione Preenchimento 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
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Método 2: Utilizar uma macro do Visual Basic
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 comercialização ou adequação a um fim específico. Este artigo parte do princípio de 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 determinado procedimento. No entanto, não modificarão estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos para cumprir os seus requisitos específicos.
Para utilizar uma macro do Visual Basic para comparar os dados em duas colunas, utilize os passos no exemplo seguinte:
-
Inicie o Excel.
-
Prima Alt+F11 para iniciar o editor do Visual Basic.
-
No menu Inserir, selecione Módulo.
-
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 -
Prima Alt+F11 para regressar ao Excel.
-
Introduza 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
-
-
Selecione a célula A1 a A5.
-
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 ativar. Para tal, selecione Ficheiro > Opções > Personalizar Frisoe, em seguida, selecione o separador Programador na caixa de personalização do lado direito.
-
Clique em Encontrar_Correspondênciase, em seguida, clique em Executar. Os números duplicados são apresentados na coluna B. Os números correspondentes serão colocados na 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
