So zählen sie mit vba eindeutige werte im bereich

Sie können die folgende grundlegende Syntax verwenden, um mithilfe von VBA die Anzahl der eindeutigen Werte in einem Bereich zu zählen:

 SubCountUnique ()
    Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
    For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
'store unique count
UniqueCount = List.Count
    
    ' display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

Dieses spezielle Beispiel zählt die Anzahl der eindeutigen Werte im Bereich A2:A11 und zeigt die Anzahl dann in einem Meldungsfeld an.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Eindeutige Werte im Bereich mit VBA zählen

Angenommen, wir haben die folgende Liste mit Namen von Basketballmannschaften in Excel:

Angenommen, wir möchten die Anzahl der eindeutigen Teamnamen im Bereich A2:A11 zählen.

Dazu können wir das folgende Makro erstellen:

 SubCountUnique()
Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
    'store unique count
    UniqueCount = List.Count
    
    'display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Das Meldungsfeld teilt uns mit, dass es 5 eindeutige Teamnamen gibt.

Wir können überprüfen, ob dies korrekt ist, indem wir jeden der eindeutigen Teamnamen manuell identifizieren:

• Mavs
• Hitze
• Netze
• Krieger
• Könige

Tatsächlich gibt es 5 einzigartige Teamnamen.

Hinweis : Um die Anzahl der eindeutigen Werte in einem anderen Bereich zu zählen, ersetzen Sie einfach A2:A11 in der For Each- Schleife durch einen anderen Bereich.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie Zellen mit bestimmtem Text
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen