Xóa dòng trùng nhau trong excel

VẤN ĐỀ TRÙNG LẶP

Tôi nghĩ ai vào chúng ta cũng phần nhiều gặp gỡ đề xuất việc nhận được công dụng kỳ cục bởi tài liệu giống nhau trong dải ô.

Bạn đang xem: Xóa dòng trùng nhau trong excel

Điều này rất có thể dễ dàng khiến các hàm VLOOKUP.. mang đến kết quả sai tuyệt khiến câu hỏi tính tổng bị sai. Đừng lo lắng do có rất nhiều phương pháp để đánh giá cùng thậm chí còn là xóa hàng tài liệu đụng hàng trong bảng tính Excel của khách hàng.

Xem thêm: Cách Chèn Ảnh Vào Word 2003, Hướng Dẫn Chèn Hình Ảnh Vào Word 2003, 2007, 2010

Hãy thư giãn đ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 áp dụng hàm COUNTIF để khẳng định liệu tất cả 2 giỏi những dữ liệu vào ô bị đụng hàng hay là không. Nếu các dữ liệu đụng hàng được tìm thấy, thì các hàng đó được dán nhãn “trùng” (viết tắt của “trùng lặp”), tuy thế chúng ta cũng có thể khiến cho nhãn kia tất cả ngẫu nhiên trường đoản cú làm sao bạn muốn.

*

Sub DeleteDuplicates()

Dim rng As RangeDim rngFind As RangeDlặng cell As RangeDlặng DupAddresses As StringDim 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 và Delimiter) = 0 ThenSearchList = SearchList và cell.Value & 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 & ” 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 thức như thế nào khác vào Excel mà lại thậm chí còn còn dễ dàng rộng các cách thức này không? Quý Khách gồm biết phương pháp như thế nào dễ hơn nhằm xong xuôi nhiệm vụ vào VBA macro của tôi không? Tôi ước ao nghe ý kiến của doanh nghiệp cùng học hỏi và chia sẻ kinh nghiệm tay nghề tự bạn. Hãy comment dưới nếu như khách hàng có bất cứ giải pháp như thế nào khiến cho ngôn từ vào nội dung bài viết này giỏi hơn!

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