Quanti notturni ci sono?

[zichiki96]

Capito...ne avevo fatto uno simile utilizzando excel..

Era piuttosto fighino in effetti..

così ?

Sub Duplicati(rng As Range)

Dim K as Integer, A As Integer, B As Integer
Dim Riscontro()

ReDim Riscontro(rng.Rows.Count)

For K = rng.Row To rng.Row + rng.Rows.Count - 1
    Riscontro(K) = Cells(K, rng.Column).Value
Next

A = 0: B = 0
Do While A < UBound(Riscontro)
    Do While B < UBound(Riscontro)
        If A <> B And Riscontro(A) = Riscontro(B) Then
            Riscontro(A) = ""
            Debug.Print Riscontro(B)
            MsgBox "Duplicato " & Riscontro(B)
        Else
            B = B + 1
        End If
    Loop
    B = 0
    A = A + 1
Loop



End Sub