Telle unike verdier

Den egendefinerte funksjonen nedenfor teller alle celler med unikt innhold et et angitt celleområde. Funksjonen utnytter det faktum at en samling (Collection) kun kan inneholder elementer med unike identifikasjoner. Dersom man forsøker å legge til et element med en identifikasjon som allerede finnes fra før i en samling vil det oppstå en feil.

Function TellUnikeVerdier(InputRange As Range) As Long
Dim cl As Range, UniqueValues As New Collection
    Application.Volatile
    On Error Resume Next ' ignorerer eventuelle feil
    For Each cl In InputRange
        UniqueValues.Add cl.Value, CStr(cl.Value) ' legger til det unike elementet
    Next cl
    On Error GoTo 0
    TellUnikeVerdier = UniqueValues.Count
End Function

Eksempel: =TellUnikeVerdier(A1:A100) vil telle alle celler med unikt innhold i området A1:A100.

Dokumentet er sist oppdatert 1999-07-30 12:42:14 Utskriftsvennlig versjon