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.

ArrowRawData

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ự.

ArrowOutput

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]