Risultati da 1 a 15 di 15

Discussione: estrarre dati escludendo i duplicati



  1. #1
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    estrarre dati escludendo i duplicati

    Buon Sabato a tutto il forum,eccomi con una richiesta d'aiuto , da una tabella dinamica composta da 70 valori avrei necessitÓ di estrarre i primi 25 valori escludendo quelli che si ripetono.Avrei bisogno di una formula ,visto che Ŕ una tabella dinamica...pensate sia possibile??. Per meglio spiegare il tutto metto il file,sperando di essere stato il pi¨ chiaro possibile. VI RINGRAZIO PER LA VOSTRA DISPONIBILITÓ ...
    File Allegati File Allegati
    • Tipo File: xlsx 25.xlsx (10.9 KB, 33 Visualizzazioni)
    Ultima modifica fatta da:Gerardo ZuccalÓ; 25/09/16 alle 16:18 Motivo: Messo Risolto

  2. #2
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Reggio Calabria
    EtÓ
    57
    Messaggi
    994
    Versione Office
    Office 2013
    Utile ricevuti
    970
    Utile dati
    1754

    Re: estrarre dati escludendo i duplicati

    Ciao BRAZ66, copi la seguente:

    In N46:
    =SE.ERRORE(INDICE($L$6:$L$75;AGGREGA(15;6;(RIF.RIGA($L$6:$L$75)-RIF.RIGA($L$6)+1)/(FREQUENZA(CONFRONTA($L$6:$L$75;$L$6:$L$75;0);RIF.RIGA($L$6:$L$75)-RIF.RIGA($L$6)+1)>0);COLONNE($N$46:N$46)));"")
    da trascinare verso destra alla bisogna.
    Fa sapere, Ciao.

  3. I seguenti 4 utenti hanno dato un "Like" a pkrome59 per questo post:


  4. #3
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    Re: estrarre dati escludendo i duplicati

    Ciao PKROME59, ti ringrazio ,ho provato su varie tabelle e funziona alla perfezione..Grazie mille. Un ultima cosa ,se dovessi invece farlo partendo dal basso verso l'alto,quale sarebbe la funzione giusta?? ti ho messo un file per spiegarmi meglio.Ŕ sul foglio 2,ti ringrazio per il tuo aiuto che sempre mi offri.
    File Allegati File Allegati
    • Tipo File: xlsx 25.xlsx (14.2 KB, 22 Visualizzazioni)

  5. #4
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5309
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1703
    Utile dati
    1084

    Re: estrarre dati escludendo i duplicati

    Ciao,
    per estrarre i valori univoci in verticale ti propongo una funzione alternativa rispetto la formula del mio amico Pkrome, che saluto.
    Se per esempio parti da M5 a scendere:

    =SE.ERRORE(INDICE($L$6:$L$75;CONFRONTA(0;INDICE(CONTA.SE($M$5:M5;$L$6:$L$75&""););0));"")
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  6. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  7. #5
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5309
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1703
    Utile dati
    1084

    Re: estrarre dati escludendo i duplicati

    Comunque se vuoi usare la stessa di Pkrome, modificala cosý:

    In M5 a scendere:

    =INDICE($L$6:$L$75;AGGREGA(15;6;(RIF.RIGA($L$6:$L$75)-5)/(FREQUENZA(CONFRONTA($L$6:$L$75;$L$6:$L$75;0);RIF.RIGA($L$6:$L$75)-5)>0);RIGHE($N$6:$N6)))
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  8. I seguenti utenti hanno dato un "Like"


  9. #6
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5309
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1703
    Utile dati
    1084

    Re: estrarre dati escludendo i duplicati

    Giusto per mio esercizio, propongo anche una soluzione col vba.
    Codice: 
    Option Explicit
    Sub univoci()
    Dim sh As Worksheet, uRiga As Long, univoci As Collection, i As Integer
        Set sh = Worksheets(1)
            Set univoci = New Collection
                With sh
                uRiga = .Cells(Rows.Count, 12).End(xlUp).Row
                    On Error Resume Next
                        For i = 1 To uRiga
                            univoci.Add .Cells(i + 5, 12), CStr(Cells(i + 5, 12))
                        Next
                    On Error GoTo 0
                        For i = 1 To 25
                            .Cells(46, i + 13) = univoci(i)
                        Next
                End With
            Set univoci = Nothing
        Set sh = Nothing
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  10. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  11. #7
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    Re: estrarre dati escludendo i duplicati

    GES un GRAZIE per le tue due soluzioni e per quelle in vba quest'ultima mi tornerÓ utilissima per le mie ricerche. Volevo ancora chiederti se puoi dare un'occhiata al
    foglio 2 dove in pratica dovrei estrarre i 25 valori univoci ma iniziando dalla cella L75 a salire e quindi l'ordine dei primi 25 valori naturalmente cambierebbero completamente..rispetto a quelli ottenuti con le formule che partono dalla cella L6 a scendere.Ti ringrazio per la tua paziente disponibilitÓ

  12. #8
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    estrarre valori univoci

    Un saluto a tutti voi ed un ringraziamento particolare a Pkrome e Ges per avermi aiutato oggi , credevo che con le loro formule risolvevo il tutto ,invece mi sono accorto che il problema era stato erroneamente esposto da me....in pratica avrei bisogno di estrarre dati univoci da una tabella ma da un preciso punto di partenza ed dal basso verso l'alto, questo per me fa la differenza e ho visto che i valori cambiano . Chiedo il vostro aiuto se potete guardare il nuovo file che meglio spiega .N.B Ŕ importante che i valori siano estrapolati dal basso verso l'alto per darmi la possibilitÓ in seguito di formulare altra tabella,diversamente non mi pu˛ essere d'aiuto. Grazie mille
    File Allegati File Allegati

  13. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2315
    Versione Office
    Excel 2013
    Utile ricevuti
    857
    Utile dati
    779

    Re: estrarre valori univoci

    Visto che si tratta del proseguimento della stessa discussione, le ho unite.

  14. #10
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4623
    Versione Office
    Office 365
    Utile ricevuti
    1027
    Utile dati
    983

    Re: estrarre valori univoci

    Ciao Franco
    Non ti smentisci mai, ci metti sempre a dura prova
    Volevo fare tutto in una formula ma sarebbe stato troppo complicato...

    Quindi ho messo una riga aggiuntiva d'appoggio (che se ti da fastidio la puoi nascondere) dove ho creato la sequenza di numeri invertiti 35/25/11/46/49/30.......e poi ho creato la solita formula che mi restituisce i valori unici con la funzione FREQUENZA

    Per la prima formula ho utilizzato la definizione dei nomi dove il nome "list" Ŕ riferito a =Foglio2!$L$6:$L$75

    In N77 ho messo questa formula da trascinare a destra

    =INDICE(list;CONTA.VALORI(list)+RIF.COLONNA($A$1:$BR$1)-RIF.COLONNA(A1))


    Poi prima di creare la seconda formula, ho nominato l'intervallo che Ŕ la risultanza della formula precedente e l'ho definito con il nome "list2" che Ŕ riferito a =Foglio2!$N$77:$CE$77

    in N75 metti questa formula ***matriciale e trascinala a destra

    =SE.ERRORE(INDICE(
    Lista2;PICCOLO(SE(FREQUENZA(Lista2;Lista2);MATR.TRASPOSTA(RIF.COLONNA(Lista2)-RIF.COLONNA($N$77)+1));COLONNE($N$75:N75)));"")








    *** le formule matriciali devono essere inserite utilizzando la combinazione della tastiera
    premendo CTRL, MAIUSC, INVIO (e non solo INVIO). Tenere premuto sia il tasto CTRL e il tasto MAIUSC poi premi INVIO.

    Fai sapere
    Ciao

  15. I seguenti 3 utenti hanno dato un "Like" a Gerardo ZuccalÓ per questo post:


  16. #11
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5309
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1703
    Utile dati
    1084

    Re: estrarre valori univoci

    Dopo la proposta di Gerardo (un saluto), che estrai gli univoci partendo dal basso, allego una soluzione col vba:

    Codice: 
    Option Explicit
    Sub univoci()
    Dim sh As Worksheet, uRiga As Long, univoci As Collection
    Dim i As Integer, a As Long, x As Long
        Application.ScreenUpdating = False
            Set sh = Worksheets(1)
                Set univoci = New Collection
                    With sh
                    uRiga = .Cells(Rows.Count, 12).End(xlUp).Row
                      x = uRiga
                           For a = 1 To uRiga
                              .Cells(a, 1) = .Cells(x, 12)
                      x = x - 1
                          Next
                      On Error Resume Next
                            For i = 1 To uRiga
                                univoci.Add .Cells(i, 1), CStr(Cells(i, 1))
                            Next
                      On Error GoTo 0
                            For i = 1 To 25
                                .Cells(75, i + 13) = univoci(i)
                            Next
                      .Range(.Cells(1, 1), .Cells(uRiga, 1)).ClearContents
                   End With
                Set univoci = Nothing
            Set sh = Nothing
        Application.ScreenUpdating = True
    End Sub
    @BRAZ: Nel tuo esempio ho visto che hai messo come ultimo numero il 49, ma il 49 c'Ŕ giÓ al quinto posto, quindi il numero corretto ultimo nell'esempio Ŕ il 19.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  17. I seguenti utenti hanno dato un "Like"


  18. #12
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    Re: estrarre valori univoci

    Gerry ti ringrazio per come hai risolto il mio problema...funziona bene,Ŕ ingegnoso e mi hai ispirato una nuova strada per risolvere altri problemi simili...TANKS

  19. #13
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    Re: estrarre valori univoci

    GES ,non immagini quanto apprezzo il fatto che tu mi metta le soluzioni col vba.....(me le conservo gelosemente) ,e poi le integro nei miei fogli...peccato solo che sono fuori delle mie capacitÓ, ma sono un grande aiuto per me.. GRAZIE DI TUTTO

  20. #14
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4623
    Versione Office
    Office 365
    Utile ricevuti
    1027
    Utile dati
    983

    Re: estrarre valori univoci

    Ciao Franco
    Stavo provando ad assemblare tutto in una formula
    e forse ci sono riuscito

    Definisci con un nome questa formula ListaInversa

    =SUBTOTALE(9;SCARTO($L$75;-(RIF.RIGA($L$6:$L$75)-RIF.RIGA($L$6));0))


    E poi metti questa formula*** matriciale in N75 e trascina a destra

    =SE.ERRORE(INDICE(ListaInversa;PICCOLO(SE(FREQUENZA(ListaInversa;ListaInversa);RIF.RIGA($L$6:$L$75)-RIF.RIGA($L$6)+1);COLONNE($N$75:N75)));"")



    *** le formule matriciali devono essere inserite utilizzando la combinazione della tastiera
    premendo CTRL, MAIUSC, INVIO (e non solo INVIO). Tenere premuto sia il tasto CTRL e il tasto MAIUSC poi premi INVIO.

    Allego il file in caso che hai problemi ad attivarla
    Un saluto
    File Allegati File Allegati

  21. I seguenti 3 utenti hanno dato un "Like" a Gerardo ZuccalÓ per questo post:


  22. #15
    L'avatar di BRAZ66
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    MILANO
    EtÓ
    51
    Messaggi
    172
    Versione Office
    Excel 2013
    Utile ricevuti
    5
    Utile dati
    53

    Re: estrarre valori univoci

    Ciao Gerry,scusa il ritardo a risponderti,causa impegni,ho scaricato il file che funziona alla grande,avevo per˛ giÓ preparato con la tua prima soluzione e continuo con quella,ma conserver˛ nel mio database anche questa per il futuro...devo capirla ...COME SEMPRE TI RINGRAZIO MOLTISSIMO ....con stima FRANCO
    Ultima modifica fatta da:Canapone; 07/02/17 alle 15:08

Discussioni Simili

  1. [Risolto] Cerca duplicati in matrice e somma duplicati
    Di alleiram87 nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 27/03/17, 19:51
  2. [Risolto] Individuare dati duplicati in colonna
    Di sergiogranero nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 13/10/16, 07:17
  3. Estrazione dati da tabella con duplicati
    Di Rubik72 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 20/02/16, 18:52
  4. estrarre duplicati da pi tabelle
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 04/09/15, 20:09
  5. Eliminare duplicati e ordinare i dati
    Di Andre81 nel forum Domande su Excel in generale
    Risposte: 27
    Ultimo Messaggio: 27/07/15, 12:29

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •