Выделение одной строки из двух одинаковых

[REMove]

Добрый вечер.
У меня есть лист на несколько тысяч строк. Некотрорые сроки совершенно одинаковы, есть по две-три одинаковые строки. Как мне обозначить, выделить дублирующие строки для последующего удаления, чтобы на листе остались только строки не имеющие дубликатов???

[SAS888]

Данный макрос сразу удалит дублирующие строки, совпадающие в столбце "A". Доработайте, как Вам нужно.

Sub DelDouble()
    Dim LastRow As Long, i As Long, q As Long
    LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
    i = 1
    q = 2
    Do While i < LastRow
        Do While q < LastRow
Metka: Comp = StrComp(Cells(i, 1), Cells(q, 1), vbTextCompare)
            If Comp = 0 Then
                Rows(q).Delete Shift:=xlUp
                LastRow = LastRow - 1
                GoTo Metka
            End If
            q = q + 1
        Loop
        i = i + 1
        q = i + 1
    Loop
End Sub

[REMove]

Спасибо большое
Работает замечательно.