Loại Bỏ Dữ Liệu Trùng Lặp Trong Excel

VẤN ĐỀ TRÙNG LẶP

Tôi suy nghĩ ai trong bọn họ cũng phần đa gặp nên bài toán cảm nhận tác dụng kỳ quái vị tài liệu giống nhau trong dải ô.

Bạn đang xem: Loại bỏ dữ liệu trùng lặp trong excel

Như vậy hoàn toàn có thể tiện lợi khiến cho các hàm VLOOKUPhường cho công dụng không nên tốt khiến cho câu hỏi tính tổng bị không đúng. Đừng lo ngại vị có không ít phương pháp để kiểm tra cùng thậm chí còn là xóa mặt hàng dữ liệu giống nhau trong bảng tính Excel của công ty. Hãy thư giãn giải trí đi.

CÁCH TÌM DỮ LIỆU TRÙNG LẶP.

Xem thêm: Hàm Index Cú Pháp, Ví Dụ, Bài Tập Về Hàm Index Và Match Trong Excel

TRONG BẢNG TÍNH

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

Với cách này, tôi thực hiện hàm COUNTIF để khẳng định liệu tất cả 2 xuất xắc nhiều tài liệu trong ô bị trùng lặp hay không. Nếu các tài liệu trùng lặp được kiếm tìm thấy, thì các mặt hàng này được dán nhãn “trùng” (viết tắt của “trùng lặp”), nhưng lại chúng ta cũng có thể khiến nhãn kia bao gồm bất kỳ trường đoản cú làm sao bạn muốn.

*

Sub DeleteDuplicates()

Dim rng As RangeDlặng rngFind As RangeDim cell As RangeDyên ổn DupAddresses As StringDlặng 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 sầu value?If cell.Value “” Then‘Has value been searched for yet?If InStr(1, SearchList, cell.Value & Delimiter) = 0 ThenSearchList = SearchList và 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 & “,”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 khổng lồ 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 có phương pháp làm sao khác trong Excel mà lại thậm chí là còn dễ hơn những phương pháp này không? Quý khách hàng bao gồm biết cách làm sao dễ rộng để chấm dứt trọng trách vào VBA macro của mình không? Tôi ước ao nghe ý kiến của bạn cùng học hỏi và chia sẻ kinh nghiệm tay nghề từ bỏ các bạn. Hãy bình luận bên dưới nếu khách hàng tất cả bất kể cách làm sao khiến cho nội dung trong bài viết này giỏi hơn!

Nếu các bạn thấy tò mò và hiếu kỳ cùng ao ước tò mò nhiều hơn nữa về VBA, các bạn xem thêm khóa học VBA101 – VBA cơ bạn dạng dành cho người mới bắt đầu của khối hệ thống Học Excel Online nhằm hoàn toàn có thể học VBA không hề thiếu cùng theo khối hệ thống. Chi tiết coi tại: