Tìm và So Sánh

[scooby]

ví dụ: Trong Sheet1 từ A1 đế A10 là 1.2.3.....10 Trong Sheet2 từ B1 đế B10 là 1,3,5,a,b,c.... Tìm và so sánh giá trị trong Sheet1 bằng (có trong) Sheet2

Sub Test1() 
         For x = 1 To 11         
          For y = 1 To 10 
                         If Sheets("Sheet1").Cells(x, 1).Value = Sheets("Sheet2").Cells(y, 2).Value Then                 

                      MsgBox Cells(y, 2).Value             
              End If 
               Next 
    Next 
 End Sub

hoặc là

Sub test2()  
     Dim c As Range

       For Each c In Sheets("Sheet1").Range("A1:A10") 
             If Application.CountIf(Columns("B:B"), c.Value) > 0 Then             
                     MsgBox c.Value         
            End If 
       Next  
End Sub