Macro busca repetidos 20 dígitos
Hola necesito de su ayuda para crear una fórmula que pueda buscar en una columna (A) valores repetidos y mostrar el resultado en la columna (B), si esa serie esta o no repetida.Las series tienen 20 dígitos cada una
2 respuestas
Creo que para algo así, no es necesaria una macro. Suponiendo que los datos empiezan desde A1 hacia abajo, escribe esta fórmula en B1 y luego arrástrala hacia abajo. En los casos en los que la fórmula te muestre un valor >1 indicará que es un repetido
=contar.si($A$1:$A$1000;a1)
Amigo gracias por responder pero recuerda que excel trabaja bien con datos de hasta 15 dígitos y los míos son de 20. Entonces al hacer un contar me aparecen todos como repetidos. Las series son así 56954000000045632578. 56956000000006435674.
Entiendo, pero mira el archivo que te mando en el siguiente enlace y hablamos
Amigo no puedo entrar a tu página, me aparece un error 503.
Te dejo mi correo por si me puedes ayudar [email protected]
Amigo te envió una muestra de las series
Número de Serie
8956021100091130243
8956021100091130250
8956021100091130276
8956021100091130284
8956021100091130292
8956021100091130300
El archivo que te he enviado
Amigo,
Te adjunte el archivo que me enviaste en donde "pegue" 3 series y aparecen todas repetidas.
Te mando la solución. Asegúrate que tus datos están situados desde A1 hacia abajo y luego ejecuta esta macro:
(Para la confección de esta macro he recibido el asesoramiento de la experta y líder de este foro Elsamatilde)
Sub buscaRepe()
'x Elsamatilde
Range("a1").Select
finx = Range("A" & Rows.Count).End(xlUp).Row + 1
Do While ActiveCell.Value <> ""
Set busco = Range("A" & ActiveCell.Offset(1, 0).Row & ":A" & finx).Find(ActiveCell, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
ActiveCell.Offset(0, 1).Value = "repe"
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
