比较a，b两列值，把b not in a中的值，突出显示

k = 0

For Each x In Sheet1.Range("d1:d13")
    For Each y In Sheet1.Range("a1:a10")
        If x.Value = y.Value Then
           k = k + 1
        End If
    Next
   
    If k = 0 Then
        x.Interior.ColorIndex = 3
      
    End If
    k = 0
Next