You are here:---Rispondi a: [RISOLTO] duplicati
Rispondi a: [RISOLTO] duplicati2018-06-27T07:54:42+02:00

Home Forum Domande su Formule e Funzioni [RISOLTO] duplicati Rispondi a: [RISOLTO] duplicati

BySalvBySalv
Amministratore del forum
    Post totali: 512

    Ciao Giorgio, lo sai che con le formule non ci riuscirei proprio, dovresti attendere qualche altra risposta.

    Ma eccoti una soluzione con una macro, questa

    Sub Conta()
    Dim r, c, n, d, x, y, k, RR, rn
    
    Range("AI3:AQ2000").ClearContents
    n = Range("AG1")
    k = Cells(Rows.Count, 8).End(xlUp).Row
    For y = 3 To k
        ReDim rn(1 To 90, 0)
        RR = Range(Cells(y, 8), Cells(y, 32))
        For Each x In RR
            rn(x, 0) = rn(x, 0) + 1
        Next x
        r = y
        c = 35
        For x = 1 To 90
            If rn(x, 0) >= n Then Cells(r, c) = x: Cells(r, c + 1) = rn(x, 0): c = c + 2
        Next x
    Next y
    End Sub

    questo il risultato, avvia la macro con la freccia verde.

    Cattura

    come vedi ti riporta tutti i doppioni ed anche il numero di volte, esempio il 62 è uscito 3 volte.
    il 2 nella cella gialla indica il numero minimo di doppione, se metti 3 ti riporta solo il 62.

    se poi vuoi come il tuo esempio senza sapere le volte di ripetizione fammelo sapere, che modifico la macro

    ti allego il link al file.
    https://mega.nz/#!oIFUhKIa!RS5nI71yCc5d2ztZ-fhjiHEdZRwhFkhxnW-IFcSjWEM

    Ciao By Sal :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi