用于比较和突出显示区分大小写的数据的宏

Question

I came across a macro that compares data pasted in column B with column A and highlights column B if not an Exact match with column A.

Sub HighlightNoMatch()
    Dim r As Long
    Dim m As Long
    m = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & m).Interior.ColorIndex = xlColorIndexNone
    For r = 1 To m
        If Evaluate("ISERROR(MATCH(TRUE,EXACT(B" & r & ",$A$1:$A$30),0))") Then
            Range("B" & r).Interior.Color = vbRed
        End If
    Next r
End Sub

How do I change the code to achieve as below -

I want the code to highlight Column F on sheet2, if it is not an exact match with data in Column B on sheet1."

Answer 1

Rather than having a fixed range ($A$1:$A$30) I would loop through each value in the range and check for a match:

    Sub HighlightNoMatch()
        Dim t As Long
        Dim m As Long

        m = Worksheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Row
        t = Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

        Worksheets("Sheet2").Range("F1:F" & m).Interior.ColorIndex = xlColorIndexNone
        For x1 = 1 To m
            For x2 = 1 To t
                If Worksheets("Sheet2").Range("F" & x1).Value = Worksheets("Sheet1").Range("B" & x2).Value Then
                    Exit For
                ElseIf Worksheets("Sheet2").Range("F" & x1).Value <> Worksheets("Sheet1").Range("B" & x2).Value And x2 = t Then
                    Worksheets("Sheet2").Range("F" & x1).Interior.Color = vbRed
                End If
            Next x2
        Next x1
    End Sub