Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Cancellazione automatica righe duplicate

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] Cancellazione automatica righe duplicate

Postdi franzbr » 17/08/06 13:54

Ho una tabella di 5000 righe circa per x colonne, alcune righe sono duplicate, anche più volte.
Dovrei poter cancellare in automatico tutte le righe doppie usando come discriminate la descrizione della colonna b.
In pratica per ogni descrizione dovrei avere una sola riga.

Ciao e grazie in anticipo.
franzbr
Newbie
 
Post: 1
Iscritto il: 17/08/06 13:38

Sponsor
 

Re: [Excel] Cancellazione automatica righe duplicate

Postdi Alexsandra » 17/08/06 20:28

Entra nell'editor di VB (ALT+F11) dal menù inserisci scegli modulo e copia questo codice
Codice: Seleziona tutto
 Sub macro1()
Application.ScreenUpdating = False
Range("a1:b500").Select 'inserisci il tuo intervallo
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Set currentCell = Worksheets("foglio1").Range("B1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
Range("B2").Select

End Sub
Codice: Seleziona tutto
Range("a1:b500").Select
questo intervallo lo modifichi secondo le tue necessità,il codice prima ordina i dati in base alla colonna B e poi ti cancella i doppi

PS. ti cancello il 2° post che è uguale al 1°
Ciao e benvenuto nel forum
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.

Win7 + Office 2003 Ita
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Cancellazione automatica righe duplicate":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti