VẤN ĐỀ TRÙNG LẶP

Tôi nghĩ ai trong chúng ta cũng đầy đủ chạm chán đề xuất việc nhận ra công dụng kỳ cục bởi tài liệu giống nhau trong dải ô. Như vậy có thể dễ ợt khiến những hàm VLOOKUPhường cho hiệu quả không nên tốt khiến cho bài toán tính tổng bị không nên. Đừng lo ngại vày có khá nhiều cách để soát sổ cùng thậm chí còn là xóa mặt hàng tài liệu trùng lặp trong bảng tính Excel của chúng ta. Hãy thư giãn giải trí đi.

CÁCH TÌM DỮ LIỆU TRÙNG LẶPhường TRONG BẢNG TÍNH

CÁCH 1: SỬ DỤNG CÔNG THỨC

Với giải pháp này, tôi thực hiện hàm COUNTIF nhằm khẳng định liệu bao gồm 2 tốt những dữ liệu trong ô bị trùng lặp hay không. Nếu những tài liệu trùng lặp được tìm kiếm thấy, thì những sản phẩm đó được dán nhãn “trùng” (viết tắt của “trùng lặp”), nhưng mà bạn có thể khiến nhãn đó gồm bất kỳ từ bỏ làm sao bạn muốn.

*

Sub DeleteDuplicates()

Dyên rng As RangeDyên ổn rngFind As RangeDyên cell As RangeDyên DupAddresses As StringDyên ổn SearchList As StringDyên 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 và rngFind.Address và “,”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 lượt thích to lớn 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 PHƯƠNG PHÁP NÀO MÀ TÔI BỎ SÓT KHÔNG?

Còn gồm phương pháp như thế nào khác trong Excel mà lại thậm chí là còn dễ dàng hơn những cách thức này không? Bạn gồm biết phương pháp nào dễ dàng hơn nhằm kết thúc trách nhiệm vào VBA macro của tớ không? Tôi hy vọng nghe chủ ý của bạn và học hỏi và giao lưu tay nghề từ bỏ chúng ta.


Bạn đang xem: Cách xóa các dữ liệu trùng nhau trong excel


Xem thêm: Hướng Dẫn Cách Đánh Số Trang Trong Word Từ Trang Thứ 2, Cách Đánh Số Trang Trong Word Từ Trang Thứ 2

Hãy bình luận bên dưới nếu khách hàng bao gồm bất kể bí quyết làm sao khiến cho nội dung vào bài viết này xuất sắc hơn!

Nếu bạn thấy tò mò và ước ao mày mò nhiều hơn về VBA, bạn tìm hiểu thêm khóa huấn luyện VBA101 – VBA cơ bản dành cho những người mới bắt đầu của khối hệ thống Học Excel Online để có thể học tập VBA vừa đủ và theo khối hệ thống. Chi tiết xem tại: