Vergleichen Sie zwei Excel-Datensätze (Arbeitsblätter) & Wert hinzufügen

Question

Ich muss zwei Arbeitsblätter vergleichen und Werte auf Arbeitsblatt 1 hinzufügen, wenn eine Übereinstimmung erfolgreich ist.

Worksheet1 = Arbeitsblatt wo ich Werte in Spalte B hinzuzufügen (der Wert ist ein String) Arbeitsblatt 2 = Liste der Daten, die in Worksheet1 für die Suche verwendet werden

Worksheet1:

Spalte A. ........................ Spalte B

2016_ABC

2016_XYZ

2015_ABC

2013_XYZ

Arbeitsblatt 2:

Spalte A

ABC

XYZ

DJH

Uij

Also, was ich will, ist eine Formel oder einfache Möglichkeit (bitte nicht VBA, ich habe bereits ein Skript in VBA - aber ich muss es einfach für Kunden halten), die Werte in Arbeitsblatt2/Spalte A mit Arbeitsblatt1/Spalte A vergleicht.

Ich kann nicht mit einer genauen Übereinstimmung vergleichen, ich muss etwas wie "CONTAINS" verwenden.

Wenn Werte in Worksheet2 Spalte A enthält in Worksheet1 ColumnA hinzufügen in derselben Zeile Worksheet1 Spalte B eine Zeichenfolge wie "Enthalten!"

Danke in Beratung. Einen schönen Tag noch.

Answer 1

Kann ich nicht herausfinden.

Hier ist mein VBA-Code:

For i = 1 To lastrowsheet1 

activeteststring = Worksheets("devices").Cells(i, 1).Value 

    For x = 6 To lastrowsheet2 
     checkstring = Worksheets("sessions").Cells(x, 2).Value 

     If InStr(checkstring, activeteststring) <> 0 Then 

      Worksheets("sessions").Cells(x, 12).Value = Worksheets("devices").Cells(i, 2).Value 

     End If 



    Next x 

Next i