Lọc giá trị trùng và đánh số thứ tự nhiều Sheet

[Hieu.ewh]

Chào mọi người mong mọi người giúp đỡ
Mình có File đính kèm
Khi Bấm Start bên Sheet tổng
1/ cột STT tự sẽ đánh dựa theo ô có dữ liệu, tất cả các Sheet chay chung
2/ Lọc dữ liệu trùng nếu trùng( trùng cho cả 3 cột, giống & 3 cột) thì đánh số từ tăng dần cho mỗi giá trị trùng lặp ( đánh 1,2,3.... vào ô Check, mình đã ghi săn mẫu),
3/ hàm trình chính mình đang sử dụng Dictionary Object nên mọi người sử dụng giúp
Tất cả các Sheet đều chạy sau khi bấm Start
thanks

 

[hoanganhvo2612]

Chào mọi người mong mọi người giúp đỡ
Mình có File đính kèm
Khi Bấm Start bên Sheet tổng
1/ cột STT tự sẽ đánh dựa theo ô có dữ liệu, tất cả các Sheet chay chung
2/ Lọc dữ liệu trùng nếu trùng( trùng cho cả 3 cột, giống & 3 cột) thì đánh số từ tăng dần cho mỗi giá trị trùng lặp ( đánh 1,2,3.... vào ô Check, mình đã ghi săn mẫu)
3/ hàm trình chính mình đang sử dụng Dictionary Object nên mọi người sử dụng giúp
Cảm ơn

File đâu bạn?

 

[Hieu.ewh]

File đâu bạn?

Mình đã đính kèm file trên bài #1

 

[Ba Tê]

co file dinh kem ma ban

Bài viết phạm quy: Không dấu tiếng Việt.
Có thể bạn đính kèm file sau khi người khác xem bài #1 và hỏi, bạn trả lời vậy là bạn nghĩ người khác "đui" rồi.
Chỉ cần viết "Mình đã đính kèm file trên bài #1" là đủ.

 

[vanaccex]

Chào mọi người mong mọi người giúp đỡ
Mình có File đính kèm
Khi Bấm Start bên Sheet tổng
1/ cột STT tự sẽ đánh dựa theo ô có dữ liệu, tất cả các Sheet chay chung
2/ Lọc dữ liệu trùng nếu trùng( trùng cho cả 3 cột, giống & 3 cột) thì đánh số từ tăng dần cho mỗi giá trị trùng lặp ( đánh 1,2,3.... vào ô Check, mình đã ghi săn mẫu),
3/ hàm trình chính mình đang sử dụng Dictionary Object nên mọi người sử dụng giúp
Tất cả các Sheet đều chạy sau khi bấm Start
Cảm ơn

Không hiểu ý bạn lắm

 

[befaint]

trùng

Xét trùng trong một sheet thôi hay xét ở sheet khác nữa?

đang sử dụng

Đính kèm tập tin định dạng *.xlsx thì không có cái gì cả?

 

[themorzer]

X

Xét trùng trong một sheet thôi hay xét ở sheet khác nữa?

Đính kèm tập tin định dạng *.xlsx thì không có cái gì cả?

Xét trùng từng sheet

 

[befaint]

Xét trùng từng sheet

@Hieu.ewh = @themorzer ???!!!

 

[Ba Tê]

Mình đã đính kèm file trên bài #1

Cái này nếu siêng thì dùng công thức cũng xong.
Cột STT dễ ẹc.
Cột F (Check):

F4=COUNTIFS($B$4:$B4;B4;$C$4:$C4;C4;$E$4:$E4;E4)
Copy xuống

Còn muốn VBA thì chạy thử Sub này:

Public Sub GPE()
Dim Dic As Object, Ws As Worksheet, sArr(), I As Long, R As Long,  Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong" Then
        Dic.RemoveAll
        sArr = Ws.Range("A4", Ws.Range("B50000").End(xlUp)).Resize(, 6).Value
        R = UBound(sArr)
        For I = 1 To R
            sArr(I, 1) = I
            Tem = sArr(I, 2) & "#" & sArr(I, 3) & "#" & sArr(I, 5)
            If Not Dic.Exists(Tem) Then
                Dic.Item(Tem) = 1
                sArr(I, 6) = 1
            Else
                Dic.Item(Tem) = Dic.Item(Tem) + 1
                sArr(I, 6) = Dic.Item(Tem)
            End If
        Next I
        Ws.Range("A4").Resize(R, 6) = sArr
    End If
Next Ws
Set Dic = Nothing
End Sub