Marcar las Celdas Duplicadas

Marcar las celdas duplicadas de un rango con Macros

Este programa tiene como finalidad mostrar al usuario las celdas duplicadas en un determinado rango con el fin de que estas se pueden cambiar o verificar su validez. La macros creada es especialmente útil cuando se tiene una gran cantidad de data y se desea verificar datos únicos como número de celular, DNI o algún otro tipo de información que sea único. Para fines didácticos, se verificará que en una competencia de equipos el color que representara a cada uno no se repita. Dado que es una cantidad de equipos limitada, se colocará el rango en el que se encuentran especificados dichos colores. Cabe mencionar que para una data de mayor magnitud siempre se podrá contar con la lógica de leer desde el último número de una determinada columna hasta el primero y cambiar el color de las celdas.

Esta es la lógica usada para la demostración de la macros:

Sub CopiarCelda()

Dim Rango1 As Range

celda1 = Rojo

Set Rango1 = Range("B4", "B13")

For Each celda1 In Rango

If WorksheetFunction.CountIf(Rango1, celda1.Value) > 1 Then

celda1.Interior.ColorIndex = 38

End If

Next celda1

End Sub

Verificar Repeticiones de Celdas