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 a continuación para obtener el código
Option Explicit Sub Check_Dups () 'Declarando variables Atenuar celda como variante Atenuar fuente como rango' Inicializar rango de fuente Establecer fuente = Rango ("A9: A24") 'Eliminar cualquier formato anterior de la fuente Fuente.Interior.Color = RGB (221, 235, 247) 'Recorriendo cada celda en el rango de origen para cada celda en origen' Verificando si el valor en la celda ya existe en el rango de origen If Application.WorksheetFunction.CountIf (Source, Cell)> 1 Then 'Resaltando valores duplicados en rojo 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. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico