Nhờ các bạn giúp mình cách lọc bớt dữ liệu gần giống nhau

File mình gửi đính kèm.

Chào các bạn,
Mình có cái bảng như sau:
Ví dụ như 2 giá trị bôi vàng là gần như giống nhau, chỉ khác nhau một chút xíu ở phần thời gian (chênh nhau 1s)
Bây giờ mình muốn lọc tự động, xoá bớt đi các giá trị gần giống nhau như thế, điều kiện xoá là giá trị thời gian chênh nhau dưới 30s.
[ATTACH type="full" alt="Untitled (1).jpg"]8090
Cám ơn các bạn!
File mình gửi đính kèm.

Chạy thử SUB này, hên xui.

Public Sub GPE_()
Dim Dic As Object, sArr(), dArr(), I As Long, J As Long, K As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range([A2], [A2].End(xlDown)).Resize(, 5).Value2
ReDim dArr(1 To UBound(sArr, 1), 1 To 5)
For I = 1 To UBound(sArr, 1)
    Tem = sArr(I, 1) & sArr(I, 2) & "#" & Round(sArr(I, 3), 2) * 100
    If Not Dic.exists(Tem) Then
        Dic.Add Tem, ""
        K = K + 1
        For J = 1 To 5
            dArr(K, J) = sArr(I, J)
        Next J
    End If
Next I
[G2:K10000].ClearContents
[G2].Resize(K, 5) = dArr
Set Dic = Nothing
End Sub

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-c%C3%A1c-b%E1%BA%A1n-gi%C3%BAp-m%C3%ACnh-c%C3%A1ch-l%E1%BB%8Dc-b%E1%BB%9Bt-d%E1%BB%AF-li%E1%BB%87u-g%E1%BA%A7n-gi%E1%BB%91ng-nhau.92646/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học