Excel - Vergleichen Sie zwei Registerkarten. Verschieben Sie Übereinstimmungen zu einer Registerkarte und andere zu einer anderen Registerkarte

Question

Ich bin auf der Suche nach einer Möglichkeit, eine "Policy-Nummer" aus Tab B Spalte A und vergleichen Sie eine Liste der "Policy-Nummern" auf Registerkarte A Spalte A.

Wenn gefunden Kopie Zeile Tab C und wenn nicht Zeile Tab D

Die Header sind

Policy# Date Amount Carrier company 

Dank

Answer 1

Spalte kopieren Versuchen Sie dieses:

Public Sub CopyRows() 

    Dim ewbT As Workbook: Set ewbT = ThisWorkbook ' Change ewbT to target Workbook, maybe ActiveWorkbook 
    Dim ewsA As Worksheet: Set ewsA = ewbT.Worksheets("A") 
    Dim ewsB As Worksheet: Set ewsB = ewbT.Worksheets("B") 
    Dim ewsC As Worksheet: Set ewsC = ewbT.Worksheets("C") 
    Dim ewsD As Worksheet: Set ewsD = ewbT.Worksheets("D") 

    Dim dctPolicy As Dictionary: Set dctPolicy = New Dictionary 
    Dim r As Long: For r = 2 To ewsA.UsedRange.Rows.Count ' Change 2 to first row of data 
     dctPolicy.Add ewsA.Cells(r, 1).Value, 0 
    Next r 

    For r = 2 To ewsB.UsedRange.Rows.Count ' Change 2 to first row of data 
     Dim varTemp() As Variant: ReDim varTemp(0 To 0, 0 To 3) 
     varTemp = ewsB.Cells(r, 1).Resize(1, 4).Value 
     Dim ewsT As Worksheet: Set ewsT = ewsC 
     If dctPolicy.Exists(ewsB.Cells(r, 1).Value) = False Then 
      Set ewsT = ewsD 
     End If 
     ewsT.Cells(ewsC.UsedRange.Rows.Count + 1, 1).Resize(1, 4).Value = varTemp 
    Next r 

End Sub 

Bitte beachten Sie, dass Sie Tools> Referenzen> Microsoft Scripting Runtime aktiviert haben.