Elimina numeri doppi.

[adolfo.b...@alice.it]

In un intervallo di 300 celle nella colonna "A" che ho chiamato
"EliminaDoppi" ho dei numeri, come posso fare per identificare i
numeri doppi ed eliminare i duplicati, con una macro?
Grazie, Adolfo.

[stirner]

===============================
Con una macro non saprei ma, visto che si tratta di numeri, potresti
provare

=PICCOLO(SE(FREQUENZA(EliminaDoppi;EliminaDoppi);EliminaDoppi);RIF.RIGA())

Nello stesso tempo ti ordina i numeri dal più piccolo al più grande

Matriciale ... da inserire con la pressione di Ctrl+Shift+Invio e da
copiare trascinando in basso.
-------------
Stirner

[Antonio]

mettiamo che hai in A1:300 i tuoi dati in colonna di appoggio, ad esempio in
b1 metti =CONTA.SE($A$1:$A$300;A1) e trascini in basso avrai accanto ad ogni
numero (o valore) il numero di volte che è presente nell'intervallo (1 per
una volta 2 per due volte ecc.) e poi potresti utilizzare il filtro impostato
su 1 in modo da avere un elenco senza doppioni, se sei interessato ad una
macro dai un'occhiata alla
discussione su questo ng

http://www.microsoft.com/office/community/it-it/default.mspx?query=eliminare+doppioni&dg=microsoft.public.it.office.excel&cat=it-it-office&lang=it&cr=IT&pt=3a4e9862-cdce-4bdc-8664-91038e3eb1e9&catlist=&dglist=&ptlist=&exp=&sloc=it-it

Ciao
Antonio

[adolfo.b...@alice.it]

Scusa ma non capisco, potresti essere piu' dettagliato, e' una formula
da inserire nelle celle di fianco al mio intervallo?
Ciao, grazie.

[cucchiaino]

adolfo.b...@alice.it scrive:

> In un intervallo di 300 celle nella colonna "A" che ho chiamato
> "EliminaDoppi" ho dei numeri, come posso fare per identificare i
> numeri doppi ed eliminare i duplicati, con una macro?

ciao adolfo (auguri),
una macro?

Prova questa:

---------------------------------------------------------------
Sub puliscizona()
Dim zona As Range
Dim cella As Range

Set zona = ActiveSheet.Range("EliminaDoppi")

For Each cella In zona
If Application.CountIf(zona, cella.Value) > 1 Then
cella.ClearContents
End If
Next

zona.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo

End Sub
--------------------------------------------------------------

Un piccolo giochino, ma efficace.

()
()---cucchiaino
()

[stirner]

==========================
Inserisci>Nome >Definisci
Nomi nella cartella di lavoro: EliminaDoppi
Riferitoa: $A$1:$A$300

Inserisci la formula che ti ho proposto in B1 A>premi F2 e poi
contemporaneamenteCtrl+Shift+Invio

A questo punto da B1 copia trascinando in basso la formula.

A partire da B1 troverai ordinati i numeri dal più piccolo al più
grande senza i doppioni.

Ad un certo punto nell'elenco in colonna B troverai #NUM! che
facilmente potrai nascondere con la formattaziona condizionale.

Seleziona tutta la colonna(assicurati che la prima cella selezionata
sia B1)
Formato>Formattazione condizionale
Il valore della formula è: =VAL.ERRORE(B1) colore bianco

Spero di esserti stato d'aiuto.

--------------------------
Ciao
Stirner

[stirner]

===============================================
> Inserisci la formula che ti ho proposto in B1 >premi F2
Ciao

[adolfo.b...@alice.it]

> Ciao- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -

Ciao Stirner, ora ho capito e funziona benissimo.
Ciao, Adolfo.

[adolfo.b...@alice.it]

On 24 Dic, 06:42, stirner <santocaris...@alice.it> wrote:

[adolfo.b...@alice.it]

> Ciao, Adolfo.- Nascondi testo tra virgolette -

>
> - Mostra testo tra virgolette -

Ringrazio anche cucchiaino, la macro è perfetta e fa proprio il mio
caso.
Ciao, Adolfo