so sánh 2 vùng dữ liệu

[giaosy]

Các bác chỉ giúp em cách so sánh để tìm ra dữ liệu khác biệt giữa hai vùng trong 1 sheet với. Thanks các bác.

From Sa_DQ:
Nếu bạn đưa cả file e2K3 thì số người quan tâm sẽ gấp đôi!

to bác Sa_DQ: file e2K3 là cái gì hả bác.
(From Sa_DQ: Ý mình muốn bạn đưa thêm 1 file excel 2003 ấy mà!)

đây, em gửi lại file excel 2003 các bác xem giúp em với.

 

[giaosy]

Sub check_info_test()
    Dim i As Integer,  j As Integer
    Dim Arg As Range, Drg As Range,  cls As Range, clls As Range
    Dim moi As String
        Set Arg = Range(Sheets(1).[A2], Sheets(1).[A65536].End(xlUp))
        Set Drg = Range(Sheets(1).[B2], Sheets(1).[B65536].End(xlUp))
            For Each cls In Drg
                For Each clls In Arg
                    If cls.Value <> clls.Value Then
                        MsgBox cls.Value
                        Exit For
                    End If
                Next
            Next
End Sub

Em đã làm thêm đoạn code này để thực hiện so sánh nhưng vẫn không được. NHờ các bác trợ giúp em với. Không biết sai ở đâu. Trường hợp em muốn các mã hàng hóa ở cột B khác với cột A hiện hết lên Msgbox thì phải làm thế nào

 

[ndu96081631]

Sub check_info_test()
    Dim i As Integer,  j As Integer
    Dim Arg As Range, Drg As Range,  cls As Range, clls As Range
    Dim moi As String
        Set Arg = Range(Sheets(1).[A2], Sheets(1).[A65536].End(xlUp))
        Set Drg = Range(Sheets(1).[B2], Sheets(1).[B65536].End(xlUp))
            For Each cls In Drg
                For Each clls In Arg
                    If cls.Value <> clls.Value Then
                        MsgBox cls.Value
                        Exit For
                    End If
                Next
            Next
End Sub

Em đã làm thêm đoạn code này để thực hiện so sánh nhưng vẫn không được. NHờ các bác trợ giúp em với. Không biết sai ở đâu. Trường hợp em muốn các mã hàng hóa ở cột B khác với cột A hiện hết lên Msgbox thì phải làm thế nào

Bạn khai báo chi mà cả 1 rừng biến thế kia chứ
Sao không dùng Find cho gọn

Sub check_info_test()
   Dim Clls As Range
   With Range(Sheets(1).[A2], Sheets(1).[A65536].End(xlUp))
     For Each Clls In Range(Sheets(1).[B2], Sheets(1).[B65536].End(xlUp))
       If .Find(Clls, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then
         MsgBox "Thieu ma: " & Clls.Value
       End If
     Next
   End With
End Sub

 

[giaosy]

bác ndu ơi, giúp em nốt cái vụ này với )
nếu có nhiều mã hàng hóa bên cột B khác với cột A, em muốn đưa hết lên msgbox thì làm thế nào hả bác.

 

[ndu96081631]

bác ndu ơi, giúp em nốt cái vụ này với )
nếu có nhiều mã hàng hóa bên cột B khác với cột A, em muốn đưa hết lên msgbox thì làm thế nào hả bác.

Thì vầy đi được không?

Sub check_info_test()
   Dim Clls As Range, thieu As String
   With Range(Sheets(1).[A2], Sheets(1).[A65536].End(xlUp))
     For Each Clls In Range(Sheets(1).[B2], Sheets(1).[B65536].End(xlUp))
       If .Find(Clls, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then
         thieu = thieu & Chr(10) & Clls.Value
       End If
     Next
   End With
   MsgBox thieu
End Sub

 

[giaosy]

rất cảm ơn sự hỗ trợ quý báu của bác ndu !

 

[hoangvu330]

Hỏi về cách so sánh 2 vùng dữ liệu để tìm ra điểm chung

Mình có 1 file như dưới.trong đó sheet Data có 1 vùng dữ liệu đc chia làm 8 nhóm chính,sheet DLĐH cũng là 1 vùng dữ liệu nhưng lớn hơn.MÌnh muốn hỏi làm cách nào để khi mình nhập vào cột B của sheet Nhập kho thì bên cột J sẽ hiện lên những giá trị trong 8 nhóm của sheet Data