Tecnología

Inicio

Cómo buscar duplicados en Excel Visual Basic

Microsoft Excel 2010 puede resaltar valores duplicados mediante un comando de formato condicional preestablecido, pero si usted necesita para encontrar los duplicados mediante el uso de una macro, puede utilizar Visual Basic para Aplicaciones (VBA), que está integrado en Microsoft Excel. Mientras que VBA no tiene una función que va a encontrar duplicados, puede explotar la función de CONTAR.SI para descubrir que las 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 el lado izquierdo de la pantalla de VBA. Mueva su ratón sobre "Insertar" y elegir la opción "Módulo". Haga doble clic en el nuevo módulo que aparece un par de líneas por debajo de la hoja de cálculo.

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

4 Coloca el cursor en la línea entre la línea "End Sub" "Sub" y. 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 se establece el valor de "EndRow." Este código será buscar a través de 50.000 líneas en una sola columna, pero si es necesario mirar a través de modo más líneas, sólo aumentará de 50.000 a cualquier 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 otra letra de la columna que necesita.

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

Para x = 1 Paso EndRow Para -1

If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then

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

Terminara si

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 un color amarillo. Puede cambiar todas las instancias de "A" si está trabajando en una columna diferente. También puede cambiar los tres números después de "Interior.color" para cambiar el color lo que la célula se vuelve.

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 "desarrollador" en la parte superior de la pantalla. Encontrar 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 resaltará cada duplicado en la columna de datos.

Consejos y advertencias

  • Este corrector víctima sólo se destacará el valor duplicado, dejando el primer valor que aparece en la columna no marcado.