[Excel] Evitare dati doppi

[http]

Ciao a tutti.
Come da oggetto, in Excel c'è modo di verificare se in una colonna ci sono due dati uguali ed eventualmente fargli cancellare i doppioni?
Grazie

[fabio309]

Che io sappia non esiste una funzione come quella che stai cercando.

[http]

Ti ringrazio, temevo proprio una risposta del genere, ho postato per avere una conferma.

[fabio309]

Non esiste (forse) la ma puoi creare, con una macro non dovrebbe essere troppo difficile

[http]

Io di macro conosco solo la ...biotica
Sai se posso trovare qualcosa di preconfezionato?

[fabio309]

Prova a guardare sul sito della microsoft

[fabio309]

Prova così: ordina la colonna dei valori da raggruppare e seleziona la prima cella della colonna e attiva la macro


Sub Macro1()
Dim riga_origine As Integer
Dim riga_destinazione As Integer
Dim valore1 As Variant
Dim valore2 As Variant

riga_origine = 1
riga_destinazione = 2
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, -1).Range("A1").Select
valore1 = ActiveCell.Value
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select ' si sposta sulla riga sotto
valore2 = ActiveCell.Value
riga_origine = riga_origine + 1
If valore1 <> valore2 Then
Selection.Copy
ActiveCell.Offset(-riga_origine + riga_destinazione, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-riga_destinazione + riga_origine, -1).Range("A1").Select
riga_destinazione = riga_destinazione + 1
End If
valore1 = valore2
Loop
End Sub

ciao ciao

[seclimar]

i dat sono ordinati e i doppi sono uno sotto l'altro ?

[http]

Si, sono in una colonna.
X Fabio: i risultati sono diversi dai numeri originali.
Comunque grazie lo stesso, ho trovato.