Nhờ viết Sub tìm và thông báo các vị trí dữ liệu trùng

[TrungChinhs]

Chào các Bạn ! Hiện nay để tìm và thông báo dữ liệu trùng trong bảng tính mình thường tạo các cột phụ chứa điều kiện tìm và dùng hàm để tìm ở các cột phụ, nhược điểm của phương pháp này là dùng rất nhiều cột phụ, công thức rất phức tạp và tốn khá nhiều công sức. Vì vậy mình muốn dùng VBA để làm việc này, đề bài và yêu cầu cụ thể trong File đính kèm, rất mong được các bạn quan tâm giúp, xin Cảm ơn !

 

[ThuNghi]

Chào các Bạn ! Hiện nay để tìm và thông báo dữ liệu trùng trong bảng tính mình thường tạo các cột phụ chứa điều kiện tìm và dùng hàm để tìm ở các cột phụ, nhược điểm của phương pháp này là dùng rất nhiều cột phụ, công thức rất phức tạp và tốn khá nhiều công sức. Vì vậy mình muốn dùng VBA để làm việc này, đề bài và yêu cầu cụ thể trong File đính kèm, rất mong được các bạn quan tâm giúp, xin Cảm ơn !

Nếu con rể ông Lò Văn Chiến và con ông Lò và Lò Văn Sịch cùng có tên là Lò Văn Thành và cùng sinh năm 1977 thì làm sao. Bài này nên cụ thể hơn. Và có thể dùng hàm if(countif()) và không cần đến VBA

 

[TrungChinhs]

Nếu con rể ông Lò Văn Chiến và con ông Lò Văn Sịch cùng có tên là Lò Văn Thành và cùng sinh năm 1977 thì làm sao. Bài này nên cụ thể hơn. Và có thể dùng hàm if(countif()) và không cần đến VBA

Cảm ơn Bác ThuNghi;98381!
1. Em đã bổ sung thêm quy định và ví dụ trường hợp trùng trong file đính kèm
2. Em đã thử Hàm if(countif()) tìm được dòng trùng nhưng không chỉ được trùng ở vị trí nào ?
Rất mong Bác và các bạn giúp đỡ. Thanks !

 

[rockydatalone]

File của mình đây, bạn nhấn vào nút Command thử xem coi có đúng theo ý của bạn không nha

 

[rollover79]

Cho hỏi thêm câu nữa là có trường hợp nào bị trùng 2 lần không?Ví dụ nhà ông Lò Văn Thành lại đi làm con nuôi cho 1 nhà nào đó nữa chẳng hạn :-D

 

[Po_Pikachu]

Thế trùng hai ba nhà trở lên thì viết thế nào bác! Thân.

 

[chibi]

Bạn xem file đính kèm nhé. Bấm "find" để tìm

 

[duchuynh103]

Theo mình nên Clear vùng kết quả "thông báo vị trí bị trùng" kiểm tra lần trước, để người sử dụng sau khi sửa (nếu có) là có thể kiểm tra lại được ngay.
Tại Sub CommandButton1_Click()
Dim........
Dim.......
thêm dòng lệnh: Range("G2:G" & Range("D6500").End(xlUp).Row).Clear ' Xoa thong bao cu

 

[duchuynh103]

Bạn xem file đính kèm nhé. Bấm "find" để tìm

Hình như bạn chưa gửi file!

 

[sealand]

Sealand mạn phép thêm vào file cua Chibi nhé