Excel: remover dados duplicados em células

[FranChæs¿ng®]

Olá, galera !

Por favor, gostaria de saber como executar alguma macro ou utilizar alguma fórmula para remover dados duplicados em células horizontais.

Exemplo:

01 02 03 01 04 05 02 (observem que 01 e 02 se repetem)

Ficaria assim:

01 02 03 04 05

Esta macro abaixo faz o procedimento, mas só que em coluna (vertical)

Sub Apaga_mesmo()

fecha:

Range("A1").Select

Rng = Range("A" & Rows.Count).End(xlUp).Row

For i = Rng To 1 Step -1

'se a célula estiver vazia é excluida

If ActiveCell = "" Then

Selection.EntireRow.Delete

GoTo fecha

End If

informa = ActiveCell

ActiveCell.Offset(1, 0).Select

For j = 1 To i

'se a célula é igual a procurada é excluida

If ActiveCell = informa Then

Selection.EntireRow.Delete

'faz um novo loop

GoTo fecha

End If

ActiveCell.Offset(1, 0).Select

Next j

ActiveCell.Offset(-i, 0).Select

Next i

End Sub

Muito grato !