Code lấy dòng đầu tiên (1 người xem)

[bebeen]

Em có ví dụ này muốn hiển thị dòng đầu tiên nếu các dòng dữ liệu trùng nhau?

Private Sub Worksheet_Activate()
    Dim eR As Long, i As Long
    eR = Sheet1.Range("A65000").End(3).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    Range("A6:C1000").ClearContents
    Sheet1.Range("A2:A" & eR).Resize(, 3).Copy Range("A6")
    For i = eR To 6 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then Cells(i, 1) = ""
    Next
End Sub

Cám ơn mọi người em đã tìm ra lĩo rùi ah! Hi........!!!