Eliminare numeri doppi.

Ciao a tutti, mi serve nuovamente il vostro aiuto;
Ho un gruppo di numeri e vorrei eliminare i numeri che sono presenti
piu' di una volta e lasciarne solo uno. Ho allegato file di esempio.
Grazie mille.

ciao
perchè non provi a fare qualcosa in autonomia e la sottoponi anche se non funzionante?

Almeno la soddisfazione di "averci provato" ;)

saluti

Non saprei da dove iniziare conosco poco excel.
Grazie.

ciao

da inserire nel modulo del foglio

Option Explicit
Sub eliminadoppi()
Dim cella As Variant
Dim cellaV As Variant
Dim ValCella As Long
For Each cella In Range("A1:S18")
ValCella = cella
If cella.Value <> "" Then
For Each cellaV In Range("A1:s18")
If cellaV.Address() <> cella.Address() Then
If cellaV.Value = ValCella Then
cellaV.ClearContents
End If
End If
Next cellaV
End If
Next cella
End Sub

La ringrazio tanto funziona.

Il codice di locatevaresino va bene.

Mi stavo chiedendo se si potrebbe farlo solo con formule???
In U1 =SE(A1="";"";SE(CONTA.SE($A1:$S1;A1)>1;"";A1)) da trascinare sino AM18. Però non va bene se in riga1 ci sono doppioni.
Certo che abbinando CONTA.SE($A1:$S1;A1) + CONTA.SE($A1:A1;A1) dovrebbe funzionare, mà io non riesco. Con altre funzioni... tipo MATR.SOMMA.PRODOTTO non saprei?

Ps. Per una F.C. che visualizzi solo i numeri univoci

ciao

prova questa formula

=SE(A1="";"";SE(CONTA.SE($A$1:INDIRETTO(INDIRIZZO(RIF.RIGA();SE(RIF.RIGA()=1;RIF.COLONNA(A1);19)));A1)=1;A1;""))

in base ai dati nel Range("A1:S18") inseriti nella tabella
metti questa in U1 e trascini fino a AM1 e in giu' fino a AM18

vedi se va bene

Ps avevo scritto 15 al posto di 19 riguardo colonna S

Perfetto, era solo una mia curiosità da usare in FC
Risposta FC = Non utilizzare operatori di riferimento (come unioni,intersezioni e intervalli) o costanti di matrice per i criteri ecc ecc

Alla fine sono riuscito, tramite FC nascondere i numeri doppi
=E(SE(A1="";"";SE(CONTA.SE($A$1:$S1;A1)=1;1;SE(CONTA.SE($A$1:$S2;A1)=1;1;2)))=2)

Può essere utile nel caso ci sia da valutare diverse colonne insieme
Ps. L'ultima riga deve essere vuota