Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] Elimina Doppioni su due file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL] Elimina Doppioni su due file

Postdi saxas » 05/05/14 10:11

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
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 48
Iscritto il: 14/11/13 16:58

Sponsor
 

Re: [EXCEL] Elimina Doppioni su due file

Postdi Anthony47 » 06/05/14 00:37

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] Elimina Doppioni su due file

Postdi saxas » 06/05/14 10:29

Ecco il file di prova,
ho inserito il codice quasi completo per indicare al meglio tutto il procedimento,
http://www.filedropper.com/cartelladilavoro_1
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 48
Iscritto il: 14/11/13 16:58

Re: [EXCEL] Elimina Doppioni su due file

Postdi Anthony47 » 06/05/14 13:54

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Elimina Doppioni su due file":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti