V/v so sánh 2 range đưa ra giá trị khác nhau (1 người xem)

[kientn123]

Gửi các cao thủ,

Mình có vđề về việc so sánh 2 range để lấy ra giá trị khác nhau, tuy nhiên kết quả không đúng. các cao thủ xem giúp code viết sai gì nhé!

So sánh từng phần tử range1 với range2 để lấy ra các phần tử Range1 có mà range2 không có.

 

[ChanhTQ@]

Bạn chạy macro sau:

Option Explicit
Sub SoSánh2Vùng()
 Dim Cls As Range, Rng As Range, sRng As Range, Sh As Worksheet
 Dim Rws As Long
 
 Set Sh = ThisWorkbook.Worksheets("5-2-2016")
1 'Xác Dinh Vùng Càn Tì́m Kiém'
 Set Rng = Sh.[A1].Resize(Sh.[A1].CurrentRegion.Rows.Count)
2 'Xóa Du Lieu Truóc:'
 Sheet3.UsedRange.ClearContents
3 'Chuan Bi Dièn Du Lieu Mói:'
 Sheet3.[b1].Value = "GPE.COM"
 With Sheet1
    Rws = .[A1].CurrentRegion.Rows.Count
4 'Tao Ṿng Lap De Duyet Vùng Du Lieu O Sheet1:'
    For Each Cls In .Range(.[a2], .[a2].End(xlDown))
5 'Fát Lenh T́m Tri Dang Duyet Cua Ṿng Lap:'
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
5 'Néu Không Tìm Tháy Th́ì Chép Sang Trang Tính Thú Ba:'
            Sheet3.Cells(Rws + 9, 2).End(xlUp).Offset(1).Value = Cls.Value
        End If
    Next Cls
 End With
End Sub

 

[kientn123]

Bạn chạy macro sau:

Option Explicit
Sub SoSánh2Vùng()
 Dim Cls As Range, Rng As Range, sRng As Range, Sh As Worksheet
 Dim Rws As Long
 
 Set Sh = ThisWorkbook.Worksheets("5-2-2016")
1 'Xác Dinh Vùng Càn Tì́m Kiém'
 Set Rng = Sh.[A1].Resize(Sh.[A1].CurrentRegion.Rows.Count)
2 'Xóa Du Lieu Truóc:'
 Sheet3.UsedRange.ClearContents
3 'Chuan Bi Dièn Du Lieu Mói:'
 Sheet3.[b1].Value = "GPE.COM"
 With Sheet1
    Rws = .[A1].CurrentRegion.Rows.Count
4 'Tao Ṿng Lap De Duyet Vùng Du Lieu O Sheet1:'
    For Each Cls In .Range(.[a2], .[a2].End(xlDown))
5 'Fát Lenh T́m Tri Dang Duyet Cua Ṿng Lap:'
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
5 'Néu Không Tìm Tháy Th́ì Chép Sang Trang Tính Thú Ba:'
            Sheet3.Cells(Rws + 9, 2).End(xlUp).Offset(1).Value = Cls.Value
        End If
    Next Cls
 End With
End Sub

Cảm ơn bạn, code bạn chạy ok, nhưng mình k hiểu code trong file mình gửi sai chỗ nào mà k chạy đúng theo ý muốn .