Giúp em so sánh 2 mã vật tư (1 người xem)

[traitimvocam]

Dear anh/chị trên GPE, e có 1 bài tập muốn so sánh mã vật tư (nội dung file đính kèm), hiện em đang không tìm ra được. Mong anh/chị trên GPE giúp e với. E cảm ơn anh/chị rất nhiều. Vì e cũng đang phải cần gấp nên loay hoay thức khuya thế này. Mong tin anh/chị rất nhiều.

 

[SA_DQ]

Bạn chạy macro này:

Option Explicit
Sub SoSanh()
 Dim Rng As Range, sRg As Range, Cls As Range, sRng As Range
 Dim fAdd As String
 
 Set Rng = Range([B4], [B65500].End(xlUp))
 Set sRg = Range([D3], [d65500].End(xlUp))
 Rng.Offset(, 5).Value = ""
 For Each Cls In Rng
    If Cls.Value <> "" Then
        Set sRng = sRg.Find(Cls.Value, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
            Cls.Offset(, 5).Value = "Nothing"
        Else
            fAdd = sRng.Address
            Do
                Cls.Offset(, 5).Value = Cls.Offset(, 5).Value & ", " & sRng.Address
                Set sRng = sRg.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> fAdd
        End If
    Else
        Cls.Offset(, 5).Value = ""
    End If
 Next Cls
End Sub

Nhưng có mã nào giống mã nào đâu mà so với sánh.

 

[adonis_thanh]

ờh, có thấy cái nào giống cái nào đâu mà so sánh ta, nhưng so sánh xong để làm jì nhỉ???? trong trường hợp muốn tìm 1 thành viên tại cột D có trùng với tổ hợp cột A hay không thì cứ Vlookup là dc mà bạn. Nghĩ sao nói vậy thôi, ko biết có đúng ý bạn ko nha. i am sorry.