Cám ơn thày ! do yêu cầu có thể trùng 6 cột dữ liệu vẫn được chấp nhận chỉ trừ khi cả 7 cột trùng dữ liệu mới loại nên nhà em thua, thày có thể chỉ cách làm cho nhà em được không ạ ? Điều thứ 2 là khi copy dữ liệu từ nơi khác đến dữ liệu trùng tự động bị loại và được sắp xếp theo số tt mới .
Thực ra ý mình là nếu chính thông tin của người đó bị nhập quá 1 lần thì tự động loại khỏi danh sách , bởi thông tin được sưu tầm từ nhiều nguồn và dữ liệu lớn nên cần loại trùng lặp . dữ liệu có thể trùng trên 6 cột vẫn được chấp nhận .
Cám ơn thày! nếu lọc sang sheet mới thì dữ liệu ít thì không sao, dữ liệu lên hàng trăm nghìn dòng thì nhà em sợ file nặng, vả lại đây là phần dữ liệu nguồn để lọc theo tên hoặc theo địa phương xã, huyện, để tìm người thân còn thất lạc . Do vậy nhà em muốn chép dữ liệu mới vào sheet dũ liệu cũ thì loại dữ liệu trùng và lọc sang sheet khác theo tên hoặc theo xã theo yêu cầu của người tìm .
Dùng Excel 2007 trở lên có chức năng loại bỏ dòng trùng, sẽ áp dụng được cho yêu cầu của bạn. Bạn thử nhé.
Thầy có thể hướng dẫn cụ thể không ạ ? Nhà em dùng // cả office 2010 mà không biết chức năng đó nằm ở đâu, cách sử dụng ?
Mọi thứ có thể trùng nhưng vị trí mộ chỉ có 1, chỉ cần kiểm tra cột này là đủ. Nếu trùng thì xử dòng này, cần gì trùng tới 7 cột.
Sub LocLS()
Application.ScreenUpdating = False
On Error Resume Next
ShTemp.Cells.Clear
With Range("a3:h" & [b65536].End(3).Row)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Copy ShTemp.[a3]
ActiveSheet.ShowAllData
.ClearContents
End With
With ShTemp
.Range("b4:b" & .[b65536].End(3).Row).Offset(, -1) = Evaluate("=Row(R:R)")
.[a3:h65000].Copy [a3]
End With
End SubCó nhiều người không có mộ bạn à ? Chẳng hạn người ta chỉ có dữ liệu" chết tại bệnh xá Trung đoàn ..." và có thể trùng số mộ vì như thày 2 lúa nói : tức là từ nhiều nghĩa trang .
dùng code này nếu bạn sử dụng excel2007 trở lên
sub loc_dsls()
with sheet1
.range("a3:h65536").value = sheet2.range("a3:h65536").value
.range("a3:h65536").removeduplicates array(2, 3, 4, 5, 6, 7, 8), header:=xlyes
.range("a4:a" & .[a65536].end(3).row) = evaluate("=row(r:r)")
end with
end subBác Chính à ! nếu lọc duy nhất căn cứ vào một vài cột sẽ dẫn đến xóa cả dữ liệu cần : Ví dụ : một xã có thể rất nhiều người trùng họ, tên đi bộ đội cùng một ngày, cùng năm sinh sau đó về cùng đơn vị, cùng đánh một trận tại cùng một địa danh, cùng bị thương , nhưng một người hy sinh, một người còn sống nên dữ liệu trùng đến 5, 6 cột vẫn phải để . Chỉ loại trường hợp do dữ liệu sưu tập nhiều lần, nhiều nơi và do nhiều người tập hợp dẫn đến chính người đó được tập hợp nhiều lần thì loại bác ạ !
Vậy bài 11 đã đáp ứng yêu cầu của bạn chưa?
Chỗ màu đỏ sao không là .AdvancedFilter xlFilterCopy, , ShTemp.[B3], True vậy anh? Tức lọc thẳng sang sheet mới luôn chứ đâu cần lọc tại chỗ rồi lại mất công copy
