Como puedo extraer de un archivo de Excel filas duplicadas
Tengo un archivo de Excel pero quiero extraer en otra hoja solo los registros
que estén duplicados por un cierto tipo en este caso su IP.
Puedo anexar archivo si gustan
Gracias Alfonso Pineda
1 respuesta
Respuesta de Luis Mondelo
1
Ya envíe el archivo, gracias de antemano
Con esta macro tienes el problema resuelto
Sub proceso()
'por luismondelo
Sheets("hoja1").Select
Range("i2").Formula = "=countif(e2:e" & Range("e54000").End(xlUp).Row & ",e2)>1"
Range("i1").Value = "criterio"
Range("a1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Range("i1:i2"), copytorange:=Sheets("hoja2").Range("a1"), unique:=False
Range("i1:i2").ClearContents
End Subrecuerda finalizar
Que tal, ya ejecute la macro, pero solo me copia a la Hoja 2 los q
Se ha cortado tu respuesta, no se puede leer
Ya ejecute la macro y solo me pasa los archivos que tiene IP duplicados pero no pasa todos por ejemplo si encuentra 6 veces duplicada la IP: 10.5.113.34 solo me copia 5 a la hoja 2, yo quisiera que me pasar las 6 completas, así con las demás IP's
Saludos
Esta es la macro corregida, faltaban unos signos $
Sub proceso()
'por luismondelo
Sheets("hoja1").Select
Range("i2").Formula = "=countif($e$2:$e$" & Range("e54000").End(xlUp).Row & ",e2)>1"
Range("i1").Value = "criterio"
Range("a1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Range("i1:i2"), copytorange:=Sheets("hoja2").Range("a1"), unique:=False
Range("i1:i2").ClearContents
End Subrecuerda finalizar
