Lọc xem trùng không + đánh dấu nếu trùng (1 người xem)

[onlktvn]

cảm ơn các bác đã đọc bài em.
em cần:
Lọc từ trên xuống (name+manu no), nếu trùng với (name+manuno) khác thì đánh dấu dòng ở dưới.

Thank các bác giúp đỡ em

 

[hungpecc1]

cảm ơn các bác đã đọc bài em.
em cần:
Lọc từ trên xuống (name+manu no), nếu trùng với (name+manuno) khác thì đánh dấu dòng ở dưới.

Thank các bác giúp đỡ em

bạn có thể giải thích cụ thể hơn việc " .....đánh dấu dòng ở dưới được không "

 

[onlktvn]

thì em ví dụ thế này nè bác

name|manu no

ten 1|manu no 1
ten 2|manu no 2
ten 1|manu no 1 x

thì đánh dấu x ở ô bên cạnh chẳng hạn để mình biết nó bị trùng đó bác ơi.

 

[Hoàng Trọng Nghĩa]

cảm ơn các bác đã đọc bài em.
em cần:
Lọc từ trên xuống (name+manu no), nếu trùng với (name+manuno) khác thì đánh dấu dòng ở dưới.

Thank các bác giúp đỡ em

Thử xem cách này có được không.

Bạn làm 2 cột phụ, 1 cột kiểm tra Name, cột kia để kiểm tra Manuf.

Công thức tại cột kt Name: =COUNTIF($B$2:$B$622,B2)

Fill công thức đến hết bảng, sau đo dùng AutoFilter để lọc tại Custom... bạn chọn vào mục Is greater than và ô tương ứng bạn gõ vào 1. Trước khi Filter, bạn sort lại tại cột Name càng tốt vì nó sẽ cho bạn thấy rõ những mục trùng sẽ sát với nhau.

Dĩ nhiên, sau khi lọc những giá trị lớn hơn 1 thì những gì hiện lên là những giá trị trùng.

Tương tự tại cột còn lại: =COUNTIF($D$2:$D$622,D2)

 

[mayvo1908]

Bổ sung thêm phần trả lời của Hoàng Trọng Nghĩa là nên kết hợp luôn hàm OR và hàm if cho do khoi phai tạo 2 côt hoac loc du lieu

 

[Hoàng Trọng Nghĩa]

Bổ sung thêm phần trả lời của Hoàng Trọng Nghĩa là nên kết hợp luôn hàm OR và hàm if cho do khoi phai tạo 2 côt hoac loc du lieu

Bạn bổ sung thêm thì làm công thức cho bạn đó luôn đi, chứ nói vậy thì bạn đó, ngay cả tôi cũng chẳng biết như thế nào nữa!

 

[mayvo1908]

Mình gửi kèm file đính kèm nha.

 

[onlktvn]

hix, bác nghĩa với bác mayvo ơi, 2 bác chưa hiểu ý em rồi ạ em post cái hình cho các bác hiểu rồi giúp em nha.

ý em là 1 cụm (name, manu no) là 1 đối tượng, mình cần so sánh đối tượng (name, manu no) với các đối tượng khác lọc từ trên xuống để biết có trùng không.

- nếu chỉ trùng name(khác manu no) hoặc trùng manu no(khác name) thì không được tính. dấu x mình cần đánh dấu vào những giá trị nào mà cả (name, manu no) giống nhau

không biết các bác hiểu ý em ko, khó diễn đạt quá

 

[hungpecc1]

Xem file đính kèm có đúng yêu cầu ko bạn :

Sub loc()
Dim item, tmparr, tmp
Dim name, manuf
Dim n As Long, irow As Long
    name = Range("B2", Range("B65536").End(xlUp))
    manuf = Range("C2", Range("C65536").End(xlUp))
    With CreateObject("scripting.dictionary")
        For Each item In name
            irow = irow + 1
            tmp = Trim(CStr(item)) & Trim(CStr(manuf(irow, 1)))
            If Len(tmp) Then
                If Not .exists(tmp) Then
                    n = n + 1
                    .Add tmp, n
                Else
                    Range("C:C").Cells(irow + 1) = Range("C:C").Cells(irow + 1) & " xxxx  "
                    Range("C:C").Cells(irow + 1).Characters(Len(Range("C:C").Cells(irow + 1)) - 5, 255).Font.ColorIndex = 3
                End If
            End If
        Next
    End With
End Sub
Sub xoa()
    Columns("C:C").Replace What:=" xxxx  ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows
End Sub

 

[onlktvn]

thank bác hungpecc1, đúng cái em cần ạ, bác vui tính quá, lam tom & jerry nữa, hehe, cảm ơn bác Nghĩa, bác mayvo nữa nhé. GPE toàn pro, em hỏi có vài phút là có đáp án.

 

[MinhKhai]

Xem file đính kèm có đúng yêu cầu ko bạn :

Chào bác.
Em có file gồm ~100.000 dòng, do mã số luôn được cập nhật thêm nên cần liên tục kiểm tra sự trùng mã số. Nếu sử dụng COUNTIF thì file chạy rất chậm. Em nghe nói dùng VBA sẽ làm cho file chạy nhanh hơn.
Em xem code của bác nhưng không biết cách sửa, các bác giúp em để tô nền các mã trùng nhé. Cảm ơn bác nhiều
File gửi kèm : https://dl.dropbox.com/s/ukuqrvnkxg6da1z/Book1.rar?dl=1