Hola, bienvenida
Podrías crear una macro para que lo haga, algo como:
Sub Comparar()
Dim sTexto1 As String
Dim sTexto2 As String
Dim i As Integer
Dim j As Integer
Dim iFila As Integer
iFila = 1
Do While Cells(iFila, 1) <> ""
iFila = iFila + 1
Loop
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
j = 1
For i = 1 To iFila
j = i + 1
sTexto1 = Cells(i, 1)
sTexto2 = Cells(j, 1)
If sTexto1 = sTexto2 Then
Cells(j, 1) = Null
End If
Next
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub