Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Elimina duplicati

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

Elimina duplicati

Postdi romant » 20/02/19 18:27

Salve, ritorno da voi per chiedere un aiuto, ho questa macro per eliminare righe duplicate in un range che va da A2 a F, nelle prove sono poche righe nella realtà sono decine di migliaia. La macro funziona però non mi cancella l'ultima riga, se questa è un duplicato ne elimina le righe vuote dopo la cancellazione dei duplicati. Potete darmi un aiuto per risolvere questo problema? Io mi sono arreso
Posto la macro.

Codice: Seleziona tutto
Sub CancellaDuplicati()
       Dim UR As Long
           Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.ScreenUpdating = False
   
    UR = Sheets("foglio2").Range("A" & Rows.Count).End(xlUp).Row
      ActiveSheet.Range("A2:F" & UR).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
       
          Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
      End Sub
romant
Utente Junior
 
Post: 23
Iscritto il: 29/01/19 21:35

Sponsor
 

Re: Elimina duplicati

Postdi romant » 20/02/19 18:38

Sono riuscito a cancellare le righe rimaste vuote, ma non riesco a cancellare l'ultima riga, se questa è un duplicato.
romant
Utente Junior
 
Post: 23
Iscritto il: 29/01/19 21:35

Re: Elimina duplicati

Postdi Anthony47 » 21/02/19 12:24

A me il comando RemoveDuplicates lavora correttamente anche sull'ultima riga dell'intervallo. Sei sicuro che il record e' effettivamente un duplicato, o ci sono piccole differenze su qualcuno dei campi? Puoi allegare un file di esempio dove invece non funziona?
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17444
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Elimina duplicati

Postdi romant » 22/02/19 22:43

MI dici come fare per allegare il file?
romant
Utente Junior
 
Post: 23
Iscritto il: 29/01/19 21:35

Re: Elimina duplicati

Postdi romant » 22/02/19 22:52

Ho capito il problema devo indicare con il numero riga l'ultima del range:
ActiveSheet.Range("A2:F" & UR).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
A2:F21
romant
Utente Junior
 
Post: 23
Iscritto il: 29/01/19 21:35

Re: Elimina duplicati

Postdi romant » 22/02/19 22:53

Comunque grazie per l'aiuto….
romant
Utente Junior
 
Post: 23
Iscritto il: 29/01/19 21:35


Torna a Applicazioni Office Windows


Topic correlati a "Elimina duplicati":

Elimina account
Autore: Anonymous
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti