Comprobar si hay duplicados en la columna
En este artículo, hemos creado una macro para resaltar valores duplicados.
Los datos brutos constan de diferentes nombres de automóviles. Queremos resaltar las entradas duplicadas.
Presione el botón «Resaltar duplicado» para ejecutar la macro y resaltar las entradas duplicadas.
Explicación lógica
Hemos creado la macro «Check_Dups» para resaltar las entradas duplicadas. Se resaltarán en color rojo. En la macro, verificamos el recuento de una entrada en particular. Si es mayor que 1, los datos se resaltarán.
Siga el código a continuación
Option Explicit
Sub Check_Dups()
'Declaring variables
Dim Cell As Variant
Dim Source As Range
'Initializing source range
Set Source = Range("A9:A24")
'Removing any previous formatting from the source
Source.Interior.Color = RGB(221, 235, 247)
'Looping through each cell in the source range
For Each Cell In Source
'Checking whether value in cell already exist in the source range
If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then
'Highlighting duplicate values in red color
Cell.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]