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

Question

我正在尝试比较两列并突出显示任何差异。

列彼此不相邻。

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 .Range("A" & i) = .Range("E" & j) Then到If .Range("A" & i) <> .Range("E" & j) Then根据你的要测试单元格中的值是否不匹配的语句； 目前您的代码正在查看单元格中的值是否匹配。

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