Como comparar duas colunas e destacar os dados que não coincidem no Excel?
Conforme ilustrado na imagem abaixo, para comparar duas colunas de células adjacentes e destacar os dados que não coincidem, experimente os métodos descritos neste artigo.
Comparar duas colunas e realçar os dados não coincidentes com código VBA
Comparar duas colunas e realçar os dados não coincidentes com Kutools para Excel
Comparar duas colunas e realçar os dados não coincidentes com código VBA
Conforme ilustrado na imagem acima, está a comparar os dados da Coluna A com os da Coluna B. Execute o seguinte código VBA para destacar os valores que não coincidem.
1. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código na janela de Código.
Código VBA: Comparar duas colunas e realçar os dados não coincidentes
Sub Dyeware()
Dim xRg1 As Range
Dim xRg2 As Range
Dim xTxt As String
Dim xCell1 As Range
Dim xCell2 As Range
Dim I As Long
Dim J As Integer
Dim xLen As Integer
Dim xDiffs As Boolean
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
If xRg1 Is Nothing Then Exit Sub
If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
lTwo:
Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
If xRg2 Is Nothing Then Exit Sub
If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
If xRg1.CountLarge <> xRg2.CountLarge Then
MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Interior.ColorIndex = xlNo
xRg1.Interior.ColorIndex = xlNo
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value = xCell2.Value Then
If Not xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
Else
If xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
End If
Next
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 para executar o código. Na caixa de diálogo que surge, Kutools para Excel, selecione a primeira coluna que pretende comparar e, em seguida, clique no botão OK. Veja a imagem.
4. De seguida, selecione a segunda coluna a comparar na próxima caixa de diálogo que surgir, Kutools para Excel.
5. Na caixa de diálogo apresentada na imagem abaixo, clique no botão Não para realçar os dados não coincidentes.
De imediato, todos os dados que não coincidem entre as duas colunas são destacados. Veja a imagem:
Comparar duas colunas e realçar os dados não coincidentes com Kutools para Excel
Se pretender apenas identificar e realçar se os valores de uma coluna existem ou não noutra — por exemplo, como ilustrado na imagem abaixo, em que o número 2 da coluna A não existe na coluna B — experimente a funcionalidade Comparar Intervalos do Kutools para Excel.
1. Clique em Kutools > Inserir > Selecionar Células Iguais/Diferentes. Veja a imagem:
2. Na caixa de diálogo Selecionar Células Iguais/Diferentes, configure da seguinte forma:
3. De seguida, surge uma caixa de diálogo a indicar quantas células existem na coluna A mas não na coluna B. Clique no botão OK para selecionar automaticamente todas as células correspondentes na coluna A.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Artigos relacionados:
- Como comparar duas cadeias quanto à semelhança ou realçar as suas diferenças no Excel?
- Como comparar duas cadeias de forma exata (diferenciando maiúsculas de minúsculas) no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos