Cómo listar duplicados o únicos sin fórmulas

[pegones1]

En un foro de desarrolladores Excel en inglés se planteó la siguiente pregunta.

Using VBA find all the duplicate values from Column-A and print them in Column-B.

Note:

1. Even if the value has been repeated more than twice, still it should be printed only once.

2. Use of worksheet functions is not allowed.

3. Sorting is not allowed.

4. Printed column should not have any blank cells between two printed cells.

Usando VBA encontrar todos los valores duplicados de la columna A e imprimirlos en la columna B.

Nota:

1. Incluso si los valores se repiten más de dos veces, deben ser imprimidos una única vez.

2. No se permite el uso de las funciones de la hoja de cálculo.

3. No está permitida la ordenación.

4. La columna imprimida ( no debe tener ninguna celda en blanco entre dos celdas impresas.

Adjunto mi solución propuesta con las siguientes aportaciones:

• Macro grabada con las 4 reglas anteriores en mente (modificada posteriormente para incluir mejoras)
  
• Uso del formato condicional para aplicar formato únicamente a los valores únicos o duplicados, cambiando su color de celda.
  
• Filtrar por color de celda.
  
• Quitar duplicados a las celdas filtradas, manteniendo su formato original.
  
• EXTRA: Poder seleccionar el tipo de filtro: Duplicate, Unique or Both.
  

¿Conoces otras soluciones con macros y sin fórmulas?

PASOS a seguir:

1. Incluye tu lista con valores únicos y duplicados en la columna A.
   
2. Selecciona el tipo de listado con el desplegable de la celda J1.
   
3. Click en el botón "List" o con el método abreviado pulsando simultáneamente las 3 teclas: Ctrl + Mayús + D
   

ListarDuplicados-PW1.zip

[Onardem]

Muchas gracias por el aporte, directo al baúl del conocimiento, me servirá en un futuro para mi trabajo.

Saludos.