Lọc dữ liệu trùng nhau

Chia sẻ bởi:hands

★★★★★

‹ Tỉnh Tổng So Le Tính tổng với dữ liệu cột và... ›

Quảng cáo

Em chào anh/chị
Em muốn lọc dữ liệu trùng nhau của các đơn hàng khi có màu và số LOT trùng nhau. Em hay dùng Remove Duplicates, nhưng 1 ngày liên tục sử dụng Remove Duplicates thấy mất thời gian. Anh/chị có công thức giúp em với ạ. Em cảm ơn ( Em dùng excel 2016 )

Bạn thử code này xem

Sub Loc()
    Dim dict As Object, sArr(), dArr()
    Dim i As Long, lr As Long, R As Long, Row As Long
    Dim tmp As String

Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare

With Sheet1
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        sArr = .Range("B3:E" & lr).Value
        ReDim dArr(1 To UBound(sArr), 1 To 4)
        For i = 1 To UBound(sArr)
            tmp = sArr(i, 1) & "-" & sArr(i, 2) & "-" & sArr(i, 3)
            If Not dict.Exists(tmp) Then
                R = R + 1
                dict.Add tmp, R
                dArr(R, 1) = sArr(i, 1)
                dArr(R, 2) = sArr(i, 2)
                dArr(R, 3) = sArr(i, 3)
                dArr(R, 4) = sArr(i, 4)
            Else
                Row = dict.Item(tmp)
                dArr(Row, 4) = dArr(Row, 4) + sArr(i, 4)
            End If
        Next i

'Dan ket qua
        .Range("H3:K1000").ClearContents
        .Range("H3").Resize(R, 4).Value = dArr
    End With

Set dict = Nothing
End Sub