Suchen nach Duplikaten mit den Daten von drei Blättern

Question

Ich habe Daten in Spalte A von drei Blättern. Ich muss die Daten eines Blattes nehmen und mit den Daten der beiden anderen Blätter vergleichen.

Kann mir jemand helfen?

Answer 1

Ohne mehr Kontext/Information kann ich Ihnen nur eine High-Level-Antwort geben, aber hoffentlich kann es Ihnen den Anfang machen.

Um zu überprüfen, ob Elemente in einem Bereich in einem anderen Bereich gefunden werden, erstellt der folgende Code eine Zeichenfolge aus einem Bereich und verwendet dann "Instr", um jedes Element aus einem anderen Bereich zu vergleichen. Um anspruchsvollere Vergleiche zu erstellen, würde ich Arrays aus den Bereichen erstellen.

Sub CompareLists() 
Dim rng1 As Range, rng2 As Range 
Dim cell As Range 
Dim tmp As String 

Set rng1 = Worksheets("Sheet1").Range("A1:A6") 
Set rng2 = Worksheets("Sheet2").Range("A1:A6") 

'Build pipe-delimited string from cells in range 
For Each cell In rng1 
    tmp = tmp & cell & "|" 
Next cell 

'Remove last pipe 
tmp = Left(tmp, Len(tmp) - 1) 

'Loop list 2 and compare against list 1. 
'Specifically, see if each item in list 2 is found in list 1 
For Each cell In rng2 
    If InStr(1, tmp, cell) > 0 Then 

     'Print items from list 2 that are found in list 1 
     Debug.Print "Found: " & cell.Value 

    Else 

     'Print items from list 2 that are NOT found in list 1 
     Debug.Print "NOT Found: " & cell.Value 

    End If 

Next cell 

Set rng1 = Nothing 
Set rng2 = Nothing 
Set cell = Nothing 

End Sub