用VBA对比两个不同的表，并且用黄色标出不同的数据

Sub 根据标准表标出对比表的不同数据()
    Dim arr, brr, crr
    Dim i, j
    Dim rng As Range
    arr = ActiveWorkbook.Sheets("标准表").UsedRange
    brr = ActiveWorkbook.Sheets("对比表").UsedRange
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If Not arr(i, j) = brr(i, j) Then
                If rng Is Nothing Then
                    Set rng = ActiveWorkbook.Sheets("对比表").Cells(i, j)
                Else
                    Set rng = Union(Cells(i, j), rng)
                End If
            End If
        Next
    Next i
    rng.Interior.ColorIndex = 6
End Sub