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
Sub copy_khongtrung()
Dim Dulieu(), i, j
Sheet2.Range(Sheet2.[A4], Sheet2.[A65536].End(3)).Resize(, 8).Copy
With Sheet1
.[A65536].End(3).Offset(1).PasteSpecial 1
Dulieu = .Range(.[A4], .[A65536].End(3)).Resize(, 9).Value
For i = 1 To UBound(Dulieu)
For j = 2 To 8
Dulieu(i, 9) = Dulieu(i, 9) & Dulieu(i, j)
Next
Next
.[A4].Resize(i - 1, 9) = Dulieu
.[A4].Resize(i - 1, 9).RemoveDuplicates 9
.[I4].Resize(i - 1).Clear
End With
End SubSub LocLS()
Application.ScreenUpdating = False
On Error Resume Next
[a4:a65000].ClearContents
ShTemp.Cells.Clear
With Range("a3:h" & [b65536].End(3).Row)
.AdvancedFilter xlFilterCopy, , ShTemp.[a3], True
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ám ơn các thày và các bạn đã quan tâm . Chiều mình đi vắng chút nên phúc đáp chậm, mình sẽ text thử với dữ liệu thực ( do nhiều quá mình cắt bớt ) . Nếu vướng mình xin hỏi lại sau . Mình muốn text thử theo gợi ý của thày NDU và hướng dẫn của thày Hai Lúa Remove Duplicate mà cái office 2010 của mình nó lỗi , chán quá,
Hình như cũng còn vài chỗ chưa ổn anh à!
Đúng là không lọc thẳng thì sao phải ActiveSheet.ShowAllData (câu này thừa quên chưa xóa)
Tôi có chút việc chưa text với dữ liệu thực anh à . Mới text code của Bác Lê duy Thương và Quang Hải giảm đi được 71 tên trùng . Xin cám ơn tất cả các thày và các bạn .
Bây giờ nhà em mới sử lý xong office và làm theo hướng dẫn của thầy và nhận ra rằng có những điều thật đơn giản, nhưng không có thày chỉ thì vẫn không làm được . Xin cám ơn thày và tất cả các bạn .
Dữ liệu giả định thì code chạy tốt anh Chính à ! Nhưng tôi chép vào dữ liệu chính thì lỗi tôi không sửa code của anh được vì sheet 2 của tôi còn lọc tên hoặc địa danh nữa , mà code của anh tôi tôi không thấy có tên sheet nên không biết cách sửa . Để làm đến cùng thì anh chọn "Danh sách 30000 liệt sĩ tại các Nghĩa trang từ Quảng trị trở vào " và giúp tôi để tôi học các anh về kiến thức VBA luôn .
Thế tôt rồi anh Chính ! Cám ơn anh . Vậy anh thức suốt đêm để làm à ? Anh làm tôi ngại quá . Vì vừa rồi có bạn Phuc_USC ở Gia lai thấy chủ đề có up lên danh sách liệt sĩ ở Nghĩa trang liệt sí Gia lai, nên nếu bạn ở nơi khác up lên nữa mình sợ trùng nên mới tính đến kiểm tra trùng . Thôi thì mình có tâm, còn tác dụng đến đâu, có ai tìm được người thân không ? còn nhờ may rủi nữa . Lần trước tôi vào các trang liệt sĩ trên Google tìm mờ cả mắt hàng tháng trời mới nghĩ giúp bạn đọc tiết kiệm thời gian bằng cách này . Họ chỉ cần nhập tên , hoặc xã Enter một cái, người thân có trong số 30000 này sẽ hiện ra . Không thì đi làm việc khác . Chứ ngồi dò hết danh sách , biết đến bao giờ . Thôi thì tôi nhờ các anh giúp vì bạn bè, vì đồng đội và vì một thời không thể quên : "Những con người mãi mãi tuổi hai mươi " ấy còn đang tha hương sứ người, nếu họ nhờ chúng ta mà về được quê hương, về được với gia đình thì mình bỏ chút sưc cũng đáng lắm anh ạ ! tôi đã từng gặp những người mẹ cả đời chờ con trong vô vọng, cứ nghĩ đến đã thấy mủi lòng ! Cám ơn anh .
Từ hôm trước, biết rằng không phải tự dưng Thày nói vậy, nhưng do nhận thức về công dụng của chức năng Advanced Filter chưa hết nên nhà em cứ phân vân mãi . Lâu rồi "ngộ" ra vấn đề và cố gắng thực hiện nó trong "2 nháy mắt" . Cám ơn thày ! lần này học thêm được mấy "chiêu" be bé của các thày và các bạn, cũng thấy hay lắm !
Đúng thế anh Chính ! Tôi lang thang trên mạng, cái cần tìm không thấy . Lũ bạn học ngày xưa, Anh em trong họ, ngoài làng chẳng thấy ai, nhưng nếu nghi vấn là dữ liệu mới thì tải về, so sánh xem có đúng là mình chưa có không ? nếu đúng thì bắt đầu xem xét để cắt, xén đưa chúng về theo khuôn mẫu của mình rồi up thêm lên thay tệp cũ . Vì dữ liệu hổ lốn của tất cả các trang khác nhau khi tải về nên việc tách chúng rồi dồn theo ý mình cũng mất khối thời gian . Trước riêng việc so sánh dữ liệu đã quá ngán rồi ( giờ nhờ các anh nên chắc đỡ cực hơn ) . các ký tự kèm theo thông tin thì mỗi chỗ dùng mỗi khác ( Dạo này tôi cũng cố vận dụng kiến thức của diễn đàn để cắt các ký tự thừa, như hàm tự tạo tách tên, trim, clean ... Nhưng cái cần là nội dung thông tin anh ạ : Nếu đúng họ tên , ngày sinh, quê quán, nơi hy sinh... thì bản thân người tìm thông tin phải xác minh lại chứ . Nhiều lúc nghĩ mình không biết mình làm cái việc "vô bổ" mà mệt người này có nên không nhỉ ?! Nhưng sau nghĩ có thể có người cần thì lại thôi , cố một tý vậy ! Mình nhớ có lần có bạn trên diễn đàn mở topic khai báo thông tin, tuổi tác để dễ xưng hô trên diễn đàn, mình khai :"Cái này hay, mình mới ...ngoài sáu mươi ." thế là người ta tá hỏa chạy chí chết ! Không biết tay này học VBA để sang "bên kia" sao ? Có thể "bên ấy " chắc gì đã có VBA nên trước mắt cứ cố học cái đã ! Nói chung tôi sẽ cố gắng cho dữ liệu chỉnh chu hơn . Kể hơi lan man, thôi chào anh nhé!
