In diesem Artikel erstellen wir eine benutzerdefinierte Funktion, um die eindeutigen Werte im definierten Bereich zu zählen.

Die Rohdaten für dieses Beispiel bestehen aus Zufallszahlen in den Zeilen. In diesem Beispiel möchten wir die Anzahl der eindeutigen Nummern in jeder Zeile zählen.

ArrowRaw

Wir haben die benutzerdefinierte Funktion „CountUniqueValues“ erstellt, um die Anzahl der eindeutigen Zahlen in der Zeile zu ermitteln. Diese Funktion verwendet den Bereich als Eingabe und gibt die eindeutige Anzahl von Zahlen zurück.

ArrowOutput

Logische Erklärung

Wir haben eine benutzerdefinierte Funktion „CountUniqueValues“ erstellt, um die Anzahl der eindeutigen Zahlen zu ermitteln. In dieser benutzerdefinierten Funktion haben wir ein Objekt des Sammlungsobjekts erstellt. Dieses Sammlungsobjekt wird verwendet, um die Liste der eindeutigen Nummern zu erstellen. Sobald wir die Liste der eindeutigen Nummern haben, erhalten wir die Anzahl der Elemente in der Sammlung.

Code Erklärung

Application.Volatile wird verwendet, da es jedes Mal neu berechnet wird, wenn ein Zellenwert in der Arbeitsmappe geändert wird.

On Error Resume Next wird verwendet, um Fehler zu behandeln.

Bitte folgen Sie unten für den Code

Option Explicit

Function CountUniqueValues(InputRange As Range) As Integer

Dim CellValue As Variant, UniqueValues As New Collection

Application.Volatile

'For error Handling

On Error Resume Next

'Looping through all the cell in the defined range

For Each CellValue In InputRange

UniqueValues.Add CellValue, CStr(CellValue)  ' add the unique item

Next

'Returning the count of number of unique values

CountUniqueValues = UniqueValues.Count

End Function

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]