Lọc Số Liệu Không Trùng- Lặp qua các số liệ này để mở File (1 người xem)

[nhapmon]

Chào ACE, mình có một vấn đề nhờ các bạn giúp đỡ, yêu cầu đã được nếu trong file
mình trình bài yêu cầu cũng ko xúc tích lắm, có gì khó hiểu nhờ các bạn hỏi lại.
nếu để giải quyết cần phải có cấu trúc thật của folder thì các bạn giúp góp ý giải thuật

tks các bạn nhiều.

 

[nhapmon]

hix..cái này hỏi mà ko bít hỏi nè, nên ko có ai trả lời..... hix...hix.
thui thì anh chị giúp dùm
số liệu ban đầu là cột B, kết quả cuối cùng là cột E và F

tks ACE nhìu nhìu

 

[dhn46]

Bạn tham khỏa code này rồi tùy biến nhé.

 Sub Filter()
Dim Arr, sArr
Dim i As Long
Arr = Sheet2.Range("B3:B" & Sheet2.Range("B65536").End(3).Row)
ReDim sArr(1 To UBound(Arr, 1), 1 To 2)
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr, 1)
        If Not .exists(Mid(Arr(i, 1), 3)) Then
            k = k + 1
            .Add Mid(Arr(i, 1), 3), k
                sArr(k, 1) = Mid(Arr(i, 1), 5)
                sArr(k, 2) = Mid(Arr(i, 1), 3, 2)
        End If
    Next
End With
[E3].Resize(k, 2) = sArr
End Sub