Como comparar duas cadeias de caracteres quanto à semelhança ou realçar as suas diferenças no Excel?
Em alguns casos, poderá precisar apenas de comparar duas células adjacentes contendo cadeias de caracteres e destacar as suas semelhanças ou diferenças no Excel. Este artigo mostra-lhe dois métodos para o fazer.
Comparar duas cadeias de caracteres com fórmula
Comparar duas cadeias de caracteres quanto à semelhança ou realçar diferenças com código VBA
Comparar duas cadeias de caracteres com fórmula
Conforme ilustrado na imagem seguinte, se pretender apenas verificar se as cadeias de caracteres comparadas coincidem ou não, pode utilizar a seguinte fórmula.
1. Selecione uma célula vazia (C2), introduza a fórmula =EXACTO(A2; B2) na Barra de Fórmulas e, em seguida, prima Enter. Veja a imagem:
Nota: Na fórmula, A2 e B2 são as células que contêm as cadeias de caracteres a comparar.
2. Mantenha a seleção na célula do resultado e, em seguida, arraste a Alça de Preenchimento até às células necessárias para obter todos os resultados da comparação.
O resultado FALSO indica que as cadeias de caracteres comparadas são diferentes, enquanto o resultado VERDADEIRO indica que coincidem. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Comparar duas cadeias de caracteres quanto à semelhança ou realçar diferenças com código VBA
Se pretender comparar duas cadeias de caracteres e destacar as semelhanças ou diferenças entre elas, o código VBA seguinte pode ajudá-lo.
1. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela do Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Depois, copie e cole o seguinte código na janela de Código.
Código VBA: Comparar cadeias de caracteres de duas colunas quanto à semelhança ou realçar diferenças
Sub highlight()
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 selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 para executar o código. Na primeira caixa de diálogo Kutools para Excel, selecione a primeira coluna de cadeias de texto que pretende comparar e, em seguida, clique no botão OK.
4. Em seguida, surge a segunda caixa de diálogo Kutools para Excel. Por favor, selecione as cadeias da segunda coluna e clique no botão OK.
5. Na última caixa de diálogo Kutools para Excel, se pretender comparar as cadeias quanto à semelhança, clique no botão Sim. Caso pretenda realçar as diferenças entre as cadeias comparadas, clique no botão Não. Veja a imagem:
Depois, poderá ver os resultados da comparação, conforme ilustrado na imagem seguinte.
Artigos relacionados:
- Como comparar duas colunas e destacar os dados que não coincidem no Excel?
- Como comparar duas cadeias de caracteres de forma exata (distinguindo 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