Puede usar los métodos siguientes para comparar datos en dos columnas de hoja de cálculo de Microsoft Excel y buscar entradas duplicadas.
Método 1: Usar una fórmula de hoja de cálculo
-
Inicie Excel.
-
En una nueva hoja de cálculo, escriba los datos siguientes como ejemplo (deje la columna B vacía):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Escriba la fórmula siguiente en la celda B1: =SI(ESERROR(COINCIDIR(A1,$C$1:$C$5,0)),"",A1)
-
Seleccione la celda B1 a B5.
-
Seleccione Rellenar en el grupo Edición y, después, haga clic en Hacia abajo. Los números duplicados se muestran en la columna B, como en el ejemplo siguiente:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Método 2: Usar una macro Visual Basic
Advertencia: Microsoft proporciona ejemplos de programación solo para ilustración, sin garantía expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad o idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se usan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden ayudar a explicar la funcionalidad de un procedimiento determinado. Sin embargo, no modificarán estos ejemplos para proporcionar funcionalidad adicional o construir procedimientos para satisfacer sus requisitos específicos.
Para usar una macro Visual Basic para comparar los datos en dos columnas, siga los pasos del ejemplo siguiente:
-
Inicie Excel.
-
Presione ALT+F11 para iniciar el editor de Visual Basic.
-
En el menúInsertarseleccione Módulo.
-
Escriba el código siguiente en una hoja de módulos:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Presione ALT+F11 para volver a Excel.
-
Escriba los siguientes datos como ejemplo (deje la columna B vacía):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Seleccione la celda A1 a A5.
-
Seleccione la pestaña Programador y, después , macros en el grupo Código .
Nota: Si no ve la pestañaDesarrollador , es posible que tenga que activarla. Para ello, seleccione Archivos > Opciones > Personalizar la cinta de opcionesy, a continuación, seleccione la pestaña Desarrollador en el cuadro de personalización del lado derecho.
-
Haga clic en Find_Matchesy, a continuación, haga clic en Ejecutar. Los números duplicados se muestran en la columna B. Los números coincidentes se colocarán junto a la primera columna, como se muestra aquí:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
