dati univoci

Hai un problema con Excel?

Nuova discussione

dati univoci
di EnzoFarre data: 28/02/2014 12:45:21
Salve a tutti,
vorrei estrapolare da una tabella contenente una moltiplicità di voci i singoli dati univoci.
ho creato una macro registrando il filtro avanzato, ma il risultato non è corretto. ripete le prime due righe con lo stesso valore.
inoltre, il filtro avanzato non mi permette di copiare il risultato in un altro foglio.
mi potete dare una mano?
Grazie anticipatamente
Enzo
di EnzoFarre data: 28/02/2014 12:50:43
il nome del file allegato è cartelladiprova.zip
di Grograman (utente non iscritto) data: 28/02/2014 14:54:40
Seleziona D5, vadi sulla scheda "Dati", "Rimuovi Duplicati" e il gioco è fatto!
dati univoi
di Enzo-Farre (utente non iscritto) data: 28/02/2014 16:39:28
in realtà, i dati che vengono estrapolati mi servono per creare un elenco e la tabella deve rimanere integra.
Questo elenco lo devo poi utilizzare in un secondo foglio.
Quasi come in una tabella pivot, ma mi serve solo l'elenco da poter inserire in una nuova posizione.
Se fai girare la macro che ho creato, le prime due celle (se contengono lo stesso dato, ad esempio in d5 = a in d6 =a in d7 =a in d8= b in d9=b ecc. danno come risultato in e5=a in e6=a e in 7=b in e8=c ecc.) vengono replicate dandomi un risultato non corretto
Grazie cmq x la sollecita risposta

di patel data: 01/03/2014 08:21:51
la prima cella non vuota della colonna viene considerata come intestazione e quindi non considerata dal filtro unique, quindi devi mettere una stringa qualsiasi come prima cella, fare la copia e poi eliminarla

Sub Voci_Univoche()
fr = ActiveSheet.UsedRange.Rows.Count
Range("D4") = "zzzz"
Range("D4:D" & fr).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E4" _
        ), Unique:=True
Range("D4") = ""
Range("E4") = ""
End Sub

di EnzoFarre data: 03/03/2014 08:45:06
ok
Grazie mille.
Enzo

Vuoi Approfondire?