You are here:Home-Domande su Formule e Funzioni-[RISOLTO] duplicati-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: 804

    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:

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie