Ich habe Probleme, diesen Code an meine Situation anzupassen. Ich möchte eine Funktion erstellen, die es mir ermöglicht, die Anzahl der Duplikate in einer Spalte zu zählen (ich glaube, dass es derzeit nur für Zeilen zählt). Vielen Dank!Anpassen dieses VBA-Codes zum Zählen von Duplikaten in Spalten
Function CountPairs(rng As Variant) As Integer
Dim v As Variant
Dim count, length, i As Integer
Dim found As Boolean
count = 0
found = False
v = rng
length = UBound(v, 2)
For i = 1 To length
' Count if second of pair
If Not (IsEmpty(v(1, i))) Then
If found Then
count = count + 1
found = False
Else
found = True
End If
Else
found = False
End If
Next i
CountPairs = count
End Function
Dies zählt keine Duplikate, zählt aber grundsätzlich die Anzahl der nicht leeren Zellen und gibt die Hälfte zurück. Zum Beispiel würde das Array {1,2,3,4,5,6} 3 zurückgeben, wo es 0 zurückgeben sollte, wenn es nach Duplikaten suchen würde. –
@ScottCraner - die aktuelle Funktion liefert 2 für das Array {1,2,, 3,, 4,5,6}, aber 3 für {1,2,, 3,4,, 5,6} und 0 für {1,, 2,, 3,, 4,, 5,, 6}. Es zählt also die Anzahl, wie oft zwei aufeinanderfolgende nicht leere Zellen existieren. (Aber ** zählt definitiv keine Duplikate!) – YowE3K
Danke euch allen, ich habe all eure Ratschläge benutzt und die Dinge scheinen jetzt zu funktionieren :) – VBNoob1991