Tôi suy nghĩ ai trong chúng ta cũng đều chạm chán phải vấn đề nhận được tác dụng kỳ kỳ lạ do dữ liệu trùng lặp vào dải ô.
Bạn đang xem: Cách xóa dữ liệu trùng trong excel
Điều này rất có thể dễ dàng khiến các hàm VLOOKUP cho công dụng sai hay khiến việc tính tổng bị sai. Đừng lo ngại vì bao gồm rất nhiều cách để kiểm tra và thậm chí còn là xóa hàng tài liệu trùng lặp trong bảng tính Excel của bạn.Xem thêm: Xem Phim Thần Bếp Tiểu Phúc Quý Giá Trị Tốt Nhất, Thần Bếp Tiểu Phúc Quý Full (Vietsub)
Hãy thư giãn giải trí đi.CÁCH TÌM DỮ LIỆU TRÙNG LẶP vào BẢNG TÍNHCÁCH 1: SỬ DỤNG CÔNG THỨC
Với giải pháp này, tôi sử dụng hàm COUNTIF để xác minh liệu bao gồm 2 giỏi nhiều dữ liệu trong ô bị đụng hàng hay không. Nếu các dữ liệu trùng lặp được tìm thấy, thì các hàng này được dán nhãn “trùng” (viết tắt của “trùng lặp”), nhưng bạn cũng có thể khiến nhãn kia có ngẫu nhiên từ nào bạn muốn.
| Sub DeleteDuplicates() Dim rng As RangeDim rngFind As RangeDim cell As RangeDim DupAddresses As StringDim SearchList As StringDim Delimiter As String ‘Setup VariablesSet rng = SelectionDelimiter = “-;;-“ ‘Loop through each cell in selectionFor Each cell In rng.Columns(1).Cells‘Does cell have value?If cell.Value “” Then‘Has value been searched for yet?If InStr(1, SearchList, cell.Value & Delimiter) = 0 ThenSearchList = SearchList & cell.Value và Delimiter Set rngFind = rng.Find(what:=cell.Value, LookIn:=xlValues, _lookat:=xlWhole, searchdirection:=xlNext) If Not rngFind Is Nothing Then‘Record first instance foundFirstAddress = rngFind.Address ‘Find any next instances of valueDoSet rngFind = rng.FindNext(rngFind)If rngFind.Address = FirstAddress Then Exit DoSet rngFind = rngFind.Resize(1, rng.Columns.Count)DupAddresses = DupAddresses & rngFind.Address & “,”Loop End IfEnd IfEnd IfNext cell ‘Report ResultsIf DupAddresses “” ThenSet rng = Range(Left(DupAddresses, Len(DupAddresses) – 1))rng.Select UserAnswer = MsgBox(rng.Count và ” duplicate values were found,” _& ” would you like to delete any duplicate rows found?”, vbYesNo)If UserAnswer = vbYes Then Selection.Delete Shift:=xlUpElseMsgBox “No duplicate cell values were found”End If End Sub |
Còn có phương pháp nào khác trong Excel mà thậm chí còn dễ dàng hơn các phương thức này không? bạn có biết phương pháp nào dễ hơn để xong xuôi nhiệm vụ trong VBA macro của tôi không? Tôi muốn nghe ý kiến của bạn và giao lưu và học hỏi kinh nghiệm từ bỏ bạn. Hãy bình luận dưới nếu các bạn có bất kể cách nào khiến cho nội dung trong nội dung bài viết này tốt hơn!
Nếu bạn thấy tò mò và muốn khám phá nhiều hơn về VBA, bạn xem thêm khóa học VBA101 – VBA cơ bạn dạng dành cho tất cả những người mới bắt đầu của khối hệ thống Học Excel Online để rất có thể học VBA không hề thiếu và theo hệ thống. Chi tiết xem tại:
