[Excel] Cancellazione automatica righe duplicate

[franzbr]

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.

[Alexsandra]

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