Excel - Anzeige fehlender Werte

Question

Ich bin auf der Suche nach etwas Hilfe, ich versuche, einen Weg zu erarbeiten, um Daten aus zwei Werten zu nehmen und anzuzeigen, was der Unterschied in einer anderen Box ist.

Beispiel

 A       B 
1 The cat and dog   | 
2 The and dog    | cat 
3 cat and dog    | the 
4 the cat     | and dog 

Irgendwelche Ideen?

Answer 1

Verwenden Sie ein UDF:

Function LeftOver(Str1 As String, Str2 As String) As String 
Dim spltstr 

For Each spltstr In Split(Str2) 
    Str1 = Trim(Replace(Str1, spltstr, "", , , vbTextCompare)) 
Next spltstr 

LeftOver = Replace(Str1, " ", " ") 
End Function 

Dann würden Sie dies in B1 setzen:

=LeftOver($A$1,A1) 

Answer 2

Mithilfe von VBA können Sie eine benutzerdefinierte Funktion erstellen, die den Minuend in ein Array aufteilt, den Subtrahend in ein Dictionary analysiert und das Minuend-Array durchläuft, um Elemente im Subtrahend zu entfernen und die Differenz zurückzugeben. Ich hoffe, das war hilfreich

Answer 3

diese kleine User Defined Function Versuchen:

Public Function WhatsMissing(s1 As String, s2 As String) As String 
    Dim IsInThere As Boolean 
    With Application.WorksheetFunction 
     ary1 = Split(.Trim(LCase(s1)), " ") 
     ary2 = Split(.Trim(LCase(s2)), " ") 
    End With 
    For Each a1 In ary1 
     IsInThere = False 
     For Each a2 In ary2 
      If a2 = a1 Then IsInThere = True 
     Next a2 
     If Not IsInThere Then WhatsMissing = WhatsMissing & " " & a1 
    Next a1 
End Function