Aiuto per Tabella Numeri

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

Fabio0922

00lunedì 25 giugno 2018 22:33

Buongiorno a tutti, avrei bisogno di aiuto.
Praticamente (vi allego il mio file) avrei bisogno di riportare dei numeri da una tabella in un'altra tabella, il problema che i numeri devono essere riportati con il numero di frequenza di quante volte vengono ripetuti almeno da 2 ripetizioni in su.
Scusatemi spero di essere stato chiaro...ma nel file è molto più comprensibile.
Grazie a tutti dell'aiuto anticipatamente :-)

Fabio

DANILOFIORINI

00lunedì 25 giugno 2018 22:51

Buonasera
veramente è ancora meno chiaro....allega il file con i risultati da ottenere inseriti a mano magari spiegando come ci arrivi e vediamo se possibile di trasformarlo in formule

Fabio0922

00martedì 26 giugno 2018 13:59

Salve e grazie della risposta.
Ho riallegato il file con una descrizione e un esempio di come dovrebbero essere estrapolati i numeri dalla tabella evidenziata in giallo.
Purtroppo bisogna riconoscere i propri limiti ed io nn sono in grado di poter sviluppare questo tipo di formula.
Mi scuso per la poca chiarezza...e ringrazio nuovamente.

Fabio

by sal

00martedì 26 giugno 2018 17:04

Tabella numeri

Ciao con un CONTA.SE() ho ricavato la tabella che vedi

questa la formula inserita, e poi trascinata a dx ed in basso

=CONTA.SE($B$29:$G$40;B29)

quindi i numeri che riportano 1 non li prendi in considerazione

come vedi il 20 lo riporta per 6 volte, ma non so se era quello che volevi.

con le formule sono una frana, questo è il massimo che riesco a fare.

ma con il VBA la cosa sarebbe diversa, come stai con le macro?

Ciao By Sal [SM=x423051]

by sal

00martedì 26 giugno 2018 17:32

Conteggio

Ciao con la macro, questo il risultato, vedi in fondo

Nella cella viola se metti 3 o altro ti da la frequenza da 3 in poi.

questa la macro

Sub Conta()
Dim r, c, n, d, x, RR, rn

ReDim rn(1 To 90, 0)
RR = Range("B29:G40")
Range("P29:W40").ClearContents
n = Range("H29")
For Each x In RR
    rn(x, 0) = rn(x, 0) + 1
Next x
r = 29
c = 16
For x = 1 To 90
    If rn(x, 0) >= n Then Cells(r, c) = x: Cells(r, c + 1) = rn(x, 0): r = r + 1
    If r = 41 Then r = 29: c = c + 2
Next x
End Sub

Clicca sulla freccia per lanciare la macro

Allego anche il file

Ciao By Sal [SM=x423051]

DANILOFIORINI

00mercoledì 27 giugno 2018 09:09

Buongiorno a tutti
lato formule in AE29 da trascinare fino a riga 100

=INDICE($B$29:$G$40;QUOZIENTE(RIF.RIGA(A1)-1;6)+1;RESTO(RIF.RIGA(A1)-1;6)+1) per incolonnare tutti i numeri della tabella

in AF29 da trascinare fino a riga 100

=SE.ERRORE(INDICE($AE$29:$AE$100;AGGREGA(15;6;(RIF.RIGA($AE$29:$AE$100)/(CONTA.SE($AE$29:$AE$100;$AE$29:$AE$100)>1))-RIF.RIGA($AE$29)+1;RIF.RIGA($A1)));"") per estrarre i numeri con frequenza maggiore di 1

in AG29 da trascinare fino a riga 100

=SE.ERRORE(INDICE($AF$29:$AF$100;CONFRONTA(0;INDICE(CONTA.SE($AG$28:AG28;$AF$29:$AF$100&""););0));"") per estrarre gli univoci di questi doppi

in I29 da trascinare a destra e poi in basso

=SE(VAL.DISPARI(RIF.COLONNA(I28));SE.ERRORE(INDICE($AG$29:$AG$100;SOMMA(RIF.COLONNA(A$1)*6-5;RIF.RIGA($A1)-1));"");SE(MATR.SOMMA.PRODOTTO(($AF$29:$AF$100=H29)*($AF$29:$AF$100<>""))=0;"";MATR.SOMMA.PRODOTTO(($AF$29:$AF$100=H29)*($AF$29:$AF$100<>""))))

by sal

00mercoledì 27 giugno 2018 09:41

Conteggio

Ciao, Bravo Danilo e come potevo arrivarci con le formule, le alternative servono sempre.

Ciao By Sal [SM=x423051]

Fabio0922

00giovedì 28 giugno 2018 17:32

Buongiorno a tutti,
Devo ringraziare tutti ma prorpio tutti per l'aiuto....ora provero tutte le alternative che mi avete scritto.!!
grazie di vero cuore e inizio a darmi da fare :-)

Fabio

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 22:01.