Wie kann ich die Unterschiede zwischen zwei Zeichenfolgen in Excel erkennen?

Question

Ich erstellte eine Bewertung, die Bewerber in Excel ausfüllen. Ich habe einen Schlüssel, in den ich ihre Antworten hineinkopiere, und er sagt mir, ob ihre Antworten meinem Schlüssel entsprechen. Ich möchte eine Formel hinzufügen, die mir auch die Unterschiede zwischen der Zelle des Bewerbers (B2) und der Zelle des Schlüssels (A2) zeigt, um zu sehen, was sie falsch verstanden haben.

Ich versuchte mit =SUBSTITUTE(B2,A2,""), aber das gibt mir nur Unterschiede am Anfang oder Ende der Zeichenfolge. Normalerweise ist der Unterschied in der Mitte.

Zum Beispiel könnte mein Schlüssel (Zelle A2) sagen: Kalter Krieg | Schweinebucht | Fidel Castro

Und der Antragsteller (Zelle B2) könnte sagen: Kalter Krieg | Kubanische Raketenkrise | Fidel Castro

Ich möchte diese Formel zurückkehren: „Kubakrise“

Answer 1

Sie können so etwas wie dieses versuchen ...

Function CompareStrings(keyRng As Range, ansRng As Range) As String 
Dim arr() As String 
Dim i As Long 
arr() = Split(ansRng.Value, "|") 
For i = 0 To UBound(arr) 
    If InStr(keyRng.Value, arr(i)) = 0 Then 
     CompareStrings = arr(i) 
     Exit Function 
    End If 
Next i 
End Function 

Dann können Sie diese UDF verwenden, wie unten ...

=CompareStrings(A2,B2) 

Wenn Sie sie in umgekehrter Reihenfolge vergleichen wollen auch und geben die nicht abgestimmt Zeichenfolge Teil von einem von ihnen, versuchen Sie dies ...

Function CompareStrings(ByVal keyRng As Range, ByVal ansRng As Range) As String 
Dim arr() As String 
Dim i As Long 
Dim found As Boolean 
arr() = Split(ansRng.Value, "|") 
For i = 0 To UBound(arr) 
    If InStr(keyRng.Value, Trim(arr(i))) = 0 Then 
     found = True 
     CompareStrings = arr(i) 
     Exit Function 
    End If 
Next i 

If Not found Then 
    arr() = Split(keyRng.Value, "|") 
    For i = 0 To UBound(arr) 
     If InStr(ansRng.Value, Trim(arr(i))) = 0 Then 
      CompareStrings = arr(i) 
      Exit Function 
     End If 
    Next i 
End If 
End Function 

verwenden nach wie vor unten wie ...

=CompareStrings(A2,B2) 

So wird die Funktion zunächst Vergleichen Sie die Zeichenfolge Teile B2 mit A2 und wenn es irgendeine Diskrepanz findet, wird es, dass ein Teil der Zeichenkette zurück, und Wenn es keine Übereinstimmung findet, wird es alle Teile der Zeichenfolge in A2 mit B2 vergleichen und jeden nicht übereinstimmenden Teil der Zeichenfolge zurückgeben. So wird es beide Wege vergleichen.