Anzahl der Duplikate zwischen zwei verschiedenen Spalten und Arbeitsblättern abrufen

Question

Ich versuche, VBA zu verwenden, um eine Anzahl von Duplikaten zu erhalten, die zwischen zwei verschiedenen Spalten in zwei verschiedenen Arbeitsblättern vorhanden sind. Ich habe diese Syntax unten, aber die zurückgegebene Zahl ist immer viel zu hoch. Zum Beispiel hat es gerade eben 13041 zurückgegeben, wenn es nur 45 Zeilen gibt, die in einem der Blätter eingecheckt werden?

Wie soll dies optimiert werden, so dass es eine genaue Anzahl von Duplikaten gibt, die zwischen den beiden Spalten & Blätter existieren?

Sub CountIF() 
ApplAcatAon.ScreenUpdatAng = False 

DAm stNow As Date 
DAm matches As Anteger 
stNow = Now 
matches = 0 

DAm arr As VarAant 
arr = Sheets("Sheet1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value 

DAm varr As VarAant 
varr = Sheets("Sheet2").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value 

DAm x, y, match As Boolean 
For Each x An arr 
    match = False 
    For Each y An varr 
     Af x = y Then match = True 
     matches = matches + 1 
    Next y 
    Af Not match Then 
     Sheets("Sheet2").Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = x 
    End Af 
Next 

ApplAcatAon.ScreenUpdatAng = True 
End Sub 

Answer 1

Einige Punkte:

Warum hassen Sie den Brief, den ich?

varr ist im falschen Bereich suchen - Sie Range eher verwenden als Sheets("Sheet2").Range so bei dem aktiven Blatt wird suchen, was ich davon ausgehen, ist Sheet1. Versuchen Sie es stattdessen:

With Sheets("Sheet2") 
    varr = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value 
End With 

Schließlich, und am wichtigsten, was genau erwarten Sie, dass dies zurückkehrt? Wenn das erste Blatt 1 in den ersten zwei verwendeten Zeilen und das zweite Blatt 1 in den ersten drei verwendeten Zeilen hat, sagt diese Funktion, dass es 6 Duplikate gibt (3 Übereinstimmungen für jeden der 2 Werte in Sheet1). Wenn das nicht richtig

Answer 2

Die Syntax für If ist

If condition Then 
    doSomething 
    doSomethingMore 
End If 

oder

If condition Then doSomething 

wenn Sie

If x = y Then match = True 
matches = matches + 1 

tun, das bedeutet matches jedes Mal erhöht wird, auch die, wenn zwei Einträge stimmen nicht überein. Was Sie wahrscheinlich gemeint zu tun war

If x = y Then 
    match = True 
    matches = matches + 1 
End If 

Ich bin nicht sicher, warum es 13.041 sein würde am Ende, weil es eine Quadratzahl sein soll, wenn arr und varr die gleiche Anzahl von Elementen haben.