比较两列并突出显示任何差异

Question

I am trying to compare two columns and highlight any differences.

The columns are not next to each other.

Sub ColumnCompare()

Dim DerLigA As Long, DerLigB As Long, i As Long, j As Long

Application.ScreenUpdating = False

With Sheets("Sheet1")

    DerLigA = .Cells(.Rows.Count, "A").End(xlUp).Row
    DerLigB = .Cells(.Rows.Count, "E").End(xlUp).Row

    For i = 2 To DerLigA
        For j = 2 To DerLigB
            If .Range("A" & i) = .Range("E" & j) Then
                .Range("E" & j).Interior.ColorIndex = 4
            End If
        Next j
    Next i
End With

Application.ScreenUpdating = True

End Sub

Answer 1

If you change If .Range("A" & i) = .Range("E" & j) Then to If .Range("A" & i) <> .Range("E" & j) Then as per your statement you want to test if the values in the cells don't match; Currently your code is looking to see if the values in the cells match.

Sub ColumnCompare()

Dim DerLigA As Long, DerLigB As Long, i As Long, j As Long


Application.ScreenUpdating = False

With Sheets("Sheet1")

    DerLigA = .Cells(.Rows.Count, "A").End(xlUp).Row
    DerLigB = .Cells(.Rows.Count, "E").End(xlUp).Row


    For i = 2 To DerLigA
        For j = 2 To DerLigB
            If .Range("A" & i) <> .Range("E" & j) Then
                .Range("E" & j).Interior.ColorIndex = 4
            End If
        Next j
    Next i
End With


Application.ScreenUpdating = True