Ciao Alice
Premesso che avresti dovuto postare nella sezione "Domande e risposte" poiché questa è dedicata a: "I vostri lavori".
Ti allego file dove ho inserito questa funzione che credo faccia quello che hai chiesto.
Function contaricorrenze(a As Range)
Dim CL As Range, Elenco As New Collection
On Error Resume Next
For Each CL In a
Elenco.Add CL.Value, CStr(CL.Value)
Next CL
contaricorrenze = Elenco.Count
End Function
Se i dati sono in A1:A12 sul foglio in altra cella basta che scrivi
Alfredo