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 < br >
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 < br >
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.
