Excel VBAが範囲内にないかどうかを確認します

Question

2つの範囲が同じである必要があります（ただし、別々にソートされる可能性があります）。 rangeBにないrangeAの値を見つけることを試みています。

値が範囲内で一致していても一致していない場合は何かを見つけるのに苦労している例を見つけることができます。

これまでのところ私が持っている：

Sub Compare2() 

    Dim test1, cell As Range 
    Dim FoundRange As Range 

    Set test1 = Sheets("Names").Range("A1:A5") 
    For Each cell In test1 

     Set FoundRange = Sheets("Queue & Status").Range("A1:A200").Find(what:=test1, LookIn:=xlFormulas, lookat:=xlWhole) 

     If FoundRange Is Nothing Then 
      MsgBox (cell & " not found")  
     End If 

    Next cell 
End Sub 

しかし、一致していないされていると、彼らはしているときには、すべての値を示しています。

Answer 1

この

Sub Compare2() 

    Dim test1 As Range 
    Dim lookIn As Range 
    Dim c As Range 
    Dim FoundRange As Range 

    Set test1 = Sheets("Names").Range("A1:A5") 
    Set lookIn = Sheets("Queue & Status").Range("A1:A200") 
    For Each c In test1 

     Set FoundRange = lookIn.Find(what:=c.Value, lookIn:=xlFormulas, lookat:=xlWhole) 

     If FoundRange Is Nothing Then 
      MsgBox (c.Value & " not found") 
     End If 

    Next c 
End Sub 

Answer 2

何を：あなたは本当にVBAでそれを行っ必要です