Loại bỏ các giá trị trùng lặp bằng cách so sánh các giá trị trong hai cột liên tiếp
Trong bài viết này, chúng tôi sẽ tạo macro để kiểm tra sự trùng lặp và loại bỏ các giá trị trùng lặp từ hai cột liên tiếp.
Dữ liệu thô bao gồm các chi tiết mục tiêu, bao gồm Tên tác nhân, Tên mô hình mục tiêu và Tên mô hình mong muốn.
Trong bài viết này, chúng tôi muốn xóa các bản ghi có tên model Target và tên model mong muốn tương tự.
Giải thích mã
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Đoạn mã trên được sử dụng để lấy số hàng của ô cuối cùng.
For i = LastRow To 12 Step -1 Next Vòng lặp For ở trên được sử dụng để lặp lại. Nó sẽ bắt đầu lặp lại từ hàng cuối cùng cho đến hàng thứ 12 ^.
If Cells (i, 2) = Cells (i, 3) Then Trong đoạn mã trên, chúng ta đã so sánh giá trị trong các ô của cột 2 ^ nd ^ với cột 3 ^ rd ^.
Rows (i) .Delete Đoạn mã trên được sử dụng để xóa toàn bộ hàng.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit Sub DeleteMatches() 'Declaring variables Dim LastRow, i As Long 'Getting the row number of last cell LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i).Delete End If Next End Sub
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]