Cómo buscar duplicados en Excel Visual Basic

Microsoft Excel 2010 puede poner de relieve los valores duplicados mediante un comando pre -set formato condicional , pero si usted necesita encontrar los duplicados utilizando una macro , puede utilizar Visual Basic para Aplicaciones ( VBA) , que está integrado en Microsoft Excel. Mientras que VBA no tiene una función que encontrar duplicados , puede aprovechar la función CONTAR.SI para averiguar qué células contienen información duplicada. Instrucciones
1

Abra el archivo de Microsoft Excel 2010 que contiene los datos que desea comprobar si hay duplicados. Cuando la hoja de cálculo aparece, pulse " Alt" y " F11 " para cargar la consola de VBA.

2 Haga clic en la hoja de cálculo en la parte izquierda de la pantalla VBA. Mueve el ratón sobre "Insertar" y elegir la opción " Módulo ". Haga doble clic en el nuevo módulo que aparece unas líneas debajo de la hoja de cálculo.

3 Coloque el cursor en el espacio en blanco en la parte derecha de la pantalla. El tipo de " Sub Dupecheck () " y pulse Enter . VBA entrará automáticamente en el comando "End Sub" para usted.

4 Coloque el cursor en la línea entre las líneas "Sub " y "End Sub" . Introduzca las siguientes líneas de código: . .

Dim x As Long

endrow Dim As Long

endrow = Range ( " A50000 ") End ( xlUp ) Row

Este código crea dos variables " endrow " y " x ", y luego establece el valor de " EndRow . " Este código será buscar a través de 50.000 líneas en una sola columna, pero si usted necesita para mirar a través de más líneas , a aumentar a 50.000 el número que necesita. Este código también está diseñado para mirar a través de la columna "A ", pero se puede cambiar simplemente "A" a cualquier columna de letra que necesita.
5

Coloque el cursor en la línea siguiente e introduzca el siguiente código :

Para x = endrow Para 1 Step -1

Si Application.WorksheetFunction.CountIf ( Range (" A1: A". & x ) Range (" A" & x ) Texto ) > 1 Entonces

Range (" A" & x ) . Interior.Color = RGB ( 200 , 160, 35 )

End If

Siguiente x

Este es el corazón del código que se verá a través de cada célula y determinar si existe una célula idéntica por encima de ella . Si encuentra un duplicado , se encenderá el fondo de la celda de color amarillo . Usted puede cambiar todas las instancias de "A" si se está trabajando en una columna diferente. También puede cambiar los tres números después de " Interior.Color " para cambiar el color resulta de la célula.
6

Haga clic en la " x " en la esquina superior derecha de la pantalla para cerrar la consola de VBA . Haga clic en la pestaña de " desarrollador " en la parte superior de la pantalla. Busque el botón "Macro " en el lado izquierdo de la cinta y haga clic en él . Seleccione " Dupecheck " de la lista de macros disponibles y haga clic en " Ejecutar". Excel ahora se destacará cada duplicado de la columna de datos.