estoy tratanto de resaltar las filas duplicadas en una hoja de Excel, para ello estoy usando el siguiente codigo:
Sub marcardupfilas()
Dim i As Double
'Definimos las fila que queremos analizar y marcar elementos duplicados
fin = Application.CountA(Worksheets("Hoja1").Range("A:A"))
For i = 2 To fin
'Definimos el rango de cada fila, desde la celda 1 hasta el final de la hoja
Range(Cells(i, 1), Cells(i, 256)).Select
'Indicamos para cada fila y rango seleccionado el mismo proceso mediante un bucle
'donde debe encontrar las celdas que se repitan en cada fila y marcarlas en azul.
With Selection
'borramos formatos condicionales previos
.FormatConditions.Delete
'utilizamos el método FormatConditions.AddUniqueValues para detectar
'valores unicos o duplicados
.FormatConditions.AddUniqueValues
'seleccionamos y marcamos en azul los valores duplicados
.FormatConditions(1).DupeUnique = xlDuplicate
.FormatConditions(1).Interior.Color = vbBlue
End With
Next
End Sub
El mismo solo resalta con color los campos que son iguales en la misma fila, pero necesito modificarlo para que me resalte filas completas que esten duplicadas.
Muchas gracias!