Archivo de texto con mas de 65536 filas...

hola, Daniel !

Mostrar la cita

Tengo un archivo de texto con nombres... en una larga lista con excel... no se pudo abrir... porque supera las 65536 lineas.
... pretendo... abrir el archivo... Buscar en la lista nombres repetidos y borrarlos, solo dejando uno de cada uno...
... alguna forma de trabajar con el archivo sin abrirlo, hacer que excel busque... los repetidos dejando solo uno...
Ah...Tambien me gustaria saber como hago para buscar archivos repetidos y eliminarlos dejando solo uno de cada repeticion.

primero... lo ultimo :D
-> para buscar ARCHIVOS 'repetidos', puesto que no puede haber archivos repetidos en una misma ubicacion/carpeta/...
[creo que] es 'tarea' de windows -> usa la herramienta para buscar archivos... revisa cuales no quieres... y eliminalos ;)

-> puedes 'traer' desde un archvo de texto [sin abrirlo] y 'sembrar' en excel SOLO los que no esten 'repetidos'
aunque... si los 'unicos' son tambien mas de 65536... el proceso podria resultar un poquitin 'leennnnto' :-(
la macro de ejemplo al final, esta 'preparada' para omitir repetidos [como vayan 'cayendo'] en las columnas 'A:F'
tambien puedes 'recortar' cuantos nombres quieres que 'reciba' cada columna [segun se vayan importando]
OJO: la macro 'trabaja' sobre la hoja activa en el libro activo... asegurate que no va a sobre-escribir datos importantes <
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub ImportarArchivosTXTextensos()
Dim Directorio As String, Archivo As String, Linea As String, _
Archivo_n As Integer, Fila As Long, Col As Byte, MaxReg_Col As Long
Directorio = "C:\Ruta y\Sub-carpeta donde\tienes el archivo\" ' <= actualiza esta ruta al archivo '
Archivo = "nombres.txt" ' <= y el nombre del arhivo '
MaxReg_Hoja = 65536 ' <= esta seria la ulrima fila por columna 'importada' '
Archivo_n = FreeFile()
Open Directorio & Archivo For Input As #Archivo_n
Application.ScreenUpdating = False
Do While Seek(Archivo_n) <= LOF(Archivo_n)
Line Input #Archivo_n, Linea
If Application.CountIf(Range("a:f"), Linea) = 0 Then ' <= puedes ampliar a mas columnas '
If Fila = MaxReg_Col Then
Col = Col + 1: Fila = 1
Else: Fila = Fila + 1
End If
Range("a" & Fila).Offset(, Col) = Linea
End If
Loop
Close #Archivo_n
End Sub