Como comparar duas colunas e destacar os dados não correspondentes no Excel?

Como mostrado na captura de tela abaixo, para comparar duas colunas de células adjacentes e destacar os dados não correspondentes, você pode experimentar os métodos apresentados neste artigo.

Comparar duas colunas e destacar os dados não correspondentes com código VBA
Comparar duas colunas e destacar os dados não correspondentes com o Kutools para Excel

Comparar duas colunas e destacar os dados não correspondentes com código VBA

Como na captura de tela acima, você está comparando os dados na Coluna A e Coluna B. Por favor, execute o seguinte código VBA para destacar os dados não correspondentes.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código na janela Código.

Código VBA: Comparar duas colunas e destacar os dados não correspondentes

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 Sub

3. Pressione a tecla F5 para executar o código. Na caixa de diálogo do Kutools para Excel que aparece, selecione a primeira coluna que precisa ser comparada, depois clique no botão OK. Veja a captura de tela.

4. Em seguida, selecione a segunda coluna a ser comparada na próxima caixa de diálogo do Kutools para Excel que aparecer.

5. Na caixa de diálogo como mostrado na captura de tela abaixo, para destacar os dados não correspondentes, por favor, clique no Não botão.

Então, todos os dados não correspondentes entre as duas colunas são destacados imediatamente. Veja a captura de tela:

Comparar duas colunas e destacar os dados não correspondentes com o Kutools para Excel

Se você apenas deseja descobrir e destacar se os valores das células em uma coluna existem ou não em outra coluna, por exemplo, como mostrado na captura de tela abaixo, o número 2 na coluna A não existe na coluna B. Você pode experimentar o utilitário Comparar Intervalos do Kutools para Excel.

1. Clique em Kutools > Inserir > Selecionar Mesmas & Diferentes Células. Veja a captura de tela:

2. Na caixa de diálogo Selecionar Mesmas & Diferentes Células, você precisa configurar conforme segue:

3. Em seguida, uma caixa de diálogo aparece informando quantas células estão apenas na coluna A, mas não na coluna B, clique no botão OK, e todas as células correspondentes serão selecionadas na coluna A.

Artigos relacionados:

• Como comparar duas strings quanto à similaridade ou destacar diferenças no Excel?
• Como comparar exatamente duas strings (diferenciando maiúsculas de minúsculas) no Excel?