用於比較和突出顯示區分大小寫的數據的宏

Question

我遇到了一個宏，該宏將B列中的數據與A列中的數據進行比較，並突出顯示B列（如果與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

如何更改代碼以實現以下目標-

我希望代碼突出顯示sheet2的F列，如果它與sheet1的B列中的數據不完全匹配。”

Answer 1

而不是使用固定范圍（$ A $ 1：$ A $ 30），我將遍歷范圍中的每個值並檢查是否匹配：

    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