Você pode usar os seguintes métodos para comparar dados em duas colunas da planilha do Microsoft Excel e localizar entradas duplicadas.
Método 1: usar uma fórmula de planilha
-
Inicie o Excel.
-
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
-
Digite a seguinte fórmula na célula B1:
=SE(ÉERROS(COMBINAR(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 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 a, 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 procedimentos de construção para atender aos seus requisitos específicos.
Para usar uma Visual Basic macro para comparar os dados em duas colunas, use as etapas no exemplo a seguir:
-
Inicie o Excel.
-
Pressione ALT+F11 para iniciar o Visual Basic editor.
-
No menu Inserir, selecione Módulo.
-
Insira o seguinte código 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
-
Pressione ALT+F11 para retornar ao Excel.
-
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
-
-
Selecione a célula A1 a A5.
-
Selecione o separador Programador 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 Opções > Arquivo > Personalizar Faixa de Opções e, em seguida, selecione a guia Desenvolvedor na caixa de personalização no lado direito.
-
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