cho e ah e muốn xóa các giá trị trùng nhau trong cột A của các ô trên thì

Chào bạn bạn đọc bài viết sau nhé

https://gitiho.com/blog/huong-dan-cac...

Thầy ơi, e muốn xóa cả 2 dòng trùng lặp luôn ạ, tức là nếu phát hiện ra dòng trùng lặp thì xóa tất cả dữ liệu trung và không để lại dòng nào ah, e cảm ơn ah

Chào bạn bạn sẽ dùng code dạng như sau nhé

Option Explicit
Sub xoadulieu()
    Dim i As Long, dc As Long
    'Tìm dòng có có 2 giá trị trở lên
    dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    For i = 1 To dc
        Dim A As Integer
        A = Application.WorksheetFunction.CountIf(Sheet1.Range("A1:A" & dc), Sheet1.Range("A" & i))
        If (A > 1) Then
            Sheet1.Range("b" & i).Value = "DELETE"
        End If
    Next i
    'xoá đi dòng có 2 giá trị
    For J = dc To 1 Step -1
        If (Range("B" & J) = "DELETE") Then
            Sheet1.Rows(J).Delete
        End If
    Next J
End Sub

E cảm ơn thầy ạ thầy siêu quá e đã làm được ah và cũng hiểu rồi ah, e cảm ơn ah

thầy cho e chút nữa code trên e chay được rồi nhưng mổi lần thêm 1 sheet mới thì phải chạy lại có cách nào code 1 lần mà dùng được như là chức năng của excel luôn không ah.

thầy cho e hỏi chút là e muốn sheet nào cũng chạy được mà ko cần phải làm lại thì làm thế nào ah, vì mổi lần làm 1 sheet mới lại phải làm lại ah . 

Chào bạn bạn lên chạy lại code bạn nhé. hoặc bạn bắt sự kiện active book nào đó nhé.

e cảm ơn thầy e làm được rồi ah,