Encontrar repetidos en columna
cordial saludo
necesito su colaboración, tengo el siguiente código para buscar repetidos
For Each celda In Range("A1:a" & Range("a65000").End(xlUp).Row)
If Application.WorksheetFunction.CountIf(Columns(celda.Column), celda.Value) > 1 Then
celda.Offset(0, 1).Value = "SI"
End If
Next
el problema que tengo es que los datos que hay en la columna A son número pero en formato texto entonces cuando ejecuto el código, me marca como repetidos algunos que no son y es porque solo toma cierta cantidad de caracteres que coinciden
ejemplo, estos 5 registros sólo difieren en el último dígito y a todos los marca como repetidos. Aclaro que la prueba solo la realizó con estos registros y el resultado debía ser que no encuentra repetidos
002417002000620101
002417002000620102
002417002000620201
002417002000620202
002417002000620301
002417002000620302
Gracias
1 Respuesta
No sé por qué cuando tienes 17 números tipo texto no los reconoce, por el contrario, si son más de 17 letras si las reconoce y hace bien los conteos.
En fin, cambia tu macro por esta para que te ponga los que son repetidos.
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If c.Row <> i Then If c = Cells(i, "A") Then c.Offset(0, 1) = "SI"
Next
Next Saludos.DAM
Si es lo que necesitas.
