宏觀比較，並強調區分大小寫的數據

Question

我碰到，如果不完全匹配與列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 

我如何來比較列B列A和亮點B列粘貼的數據宏來了改變代碼如下實現 -

我想要的代碼以突出F欄Sheet 2上，如果它不與Sheet 1上在列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