In diesem Artikel erstellen wir eine benutzerdefinierte Funktion zum Zählen der eindeutigen Werte im definierten Bereich.
Rohdaten für dieses Beispiel bestehen aus Zufallszahlen in den Zeilen. In diesem Beispiel möchten wir die Anzahl der eindeutigen Zahlen in jeder Zeile zählen.
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.
Logikerklärung
Wir haben die 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.
Codeerklärung
Application.Volatile wird verwendet, weil 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 Explizite Funktion CountUniqueValues(InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'Zur Fehlerbehandlung bei Fehler Resume Next 'Durchlaufen aller Zellen im definierten Bereich für jeden CellValue in InputRange UniqueValues.Add CellValue , CStr(CellValue) ' das eindeutige Element hinzufügen Next 'Die Anzahl der eindeutigen Werte zurückgeben CountUniqueValues = UniqueValues.Count End Function
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site