Macro para quitar duplicados

En nuestro trabajo diario, en muchas ocasiones tenemos que conocer los valores unicos.

Excel nos permite varias opciones, aqui tiens la opcion con una macro, la cual te permitira extraer esos valores unicos o quitar duplicados con un solo botonaño.

Código de la macro

Sub QuitarDuplicados()
Dim MiRango As Range
On Error GoTo Error:
Set MiRango = Application.InputBox(«Seleccione el rango a quitar duplicados:», «ExcelyFinanzas», Type:=8)
MiRango.RemoveDuplicates Columns:=1, Header:=xlNo
Exit Sub
Error:
End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada