[EXCEL] Elimina Doppioni su due file

[saxas]

devo cancellare i doppioni in un file "Origine" Foglio "TEMP" confrontandolo con un file "ListaCompleta" "Foglio1"
e ho scritto il codice nel seguente modo

Codice: Seleziona tutto

Windows("Origine").Activate
Sheets("TEMP").Select
    RigheListaTemp = Cells(Rows.Count, 1).End(xlUp).Row
Windows("ListaCompleta").Activate
Sheets("Foglio1").Select
    RigheListaCompleta = Cells(Rows.Count, 1).End(xlUp).Row
J = 2
JJ = 2
For J = J To RigheListaCompleta
Windows("ListaCompleta").Activate
Sheets("Foglio1").Select
RigTot = Cells(J, 8) & Cells(J, 9) & Cells(J, 10) & Cells(J, 11) & Cells(J, 12)

Windows("Origine").Activate
Sheets("TEMP").Select
For JJ = JJ To RigheListaTemp
RigTemp = Cells(JJ, 8) & Cells(JJ, 9) & Cells(JJ, 10) & Cells(JJ, 11) & Cells(JJ, 12)

If RigTot = RigTemp Then Cells(JJ, 1).EntireRow.Delete
JJ = JJ-1
Next JJ
JJ = 2
Next J



in pratica spulcia ad uno ad uno l'unione delle colonne 8, 9, 10, 11, 12 del file "ListaCompleta" "foglio1"con l'unione delle stesse colonne sul file "Origine" foglio "TEMP", se trova doppioni elimina l'intera riga del foglio Temp

il codice sembra funzionare correttamente ma è tremendamente lento specialmente quando si parla di verificare anche 40000 righe per ogni lista,
c'è la possibilità di velocizzare il tutto con qualche sistema più professionale?
Grazie

[Anthony47]

Puoi allegare un esempio per i file Origine e ListaCompleta?
Inoltre vorrei essere certo che per "doppione da eliminare" intendi le righe di Origine/TEMP le cui colonne 8-9-10-11-12 sono uguali alle stesse colonne in ListaCompleta/Foglio1

Ciao

[saxas]

Ecco il file di prova,
ho inserito il codice quasi completo per indicare al meglio tutto il procedimento,
http://www.filedropper.com/cartelladilavoro_1

[Anthony47]

La tua macro sui file pubblicati va in errore; inoltre non capisco che test di velocita' posso fare su file di 2-3 righe.

Se hai problemi di dati riservati:
-cancelli Nome ditta, Cap, Comune, Provincia
-nelle colonne H:L (quelle oggetto del confronto), fai in una sequenza (uguale sia in file1 che in file2) di Cerca /Sostituisci; ad esempio
Cerca 2 Sostituisci con 3
Cerca 4 sostituisci con 5
Cerca 6 sostituisci con 7
Cerca 8 sostituisci con 9
Cerca 79 sostituisci con 0
Cerca 57 sostituisci con 3
Se i campi a questo punto non sembrano abbastanza irriconoscibili, esegui altri Cerca /Sostituisci come da tua fantasia
Importante che i cicli siano gli stessi e nella stessa sequenza sia su file 1 che su file2

Servirebbero almeno qualche migliaio di righe per avere una cosa utilizzabile...

Ciao