Suchen Sie den Teil der Zeichenfolge, der eine Zeichenfolge in einer Zelle von einer Zeichenfolge in einer anderen Zelle unterscheidet

Question

Suchen Sie den Teil der Zeichenfolge, der eine Zeichenfolge in einer Zelle von einer Zeichenfolge in einer anderen Zelle unterscheidet

337

JAT86 2018-08-19 в 13:08

Ich habe zwei Spalten mit Strings und möchte wissen, welche Teile des Strings aus einer Spalte mit der anderen Spalte haben. Ich habe diese Lösung geprüft. Vergleichen Sie 2 Textzellen und zeigen Sie den Unterschied in der dritten Zelle Super User klappt aber bei meinem Problem nicht.

In der Abbildung unten, möchte ich auf die Ergebnisspalte die Zeichenfolge haben, Elementaryda das ist, was unterscheidet B2von A2. Ich habe versucht, =SUBSTITUTE(A2,B2,"")basierend auf der Lösung in der obigen Verknüpfung zu verwenden. Die Formel bewirkt jedoch das Gegenteil, indem die allgemeinen Zeichenfolgen in beiden Spalten angezeigt werden:

Wie kann ich den Stringunterschied ( Elementary) stattdessen anzeigen lassen ?

1

1 Antwort auf die Frage

3

Accepted Answer · 2018-08-19 13:14:24

Wie kann ich den String-Unterschied (Elementary) anzeigen lassen?

Hier ist eine benutzerdefinierte Funktion, die aufgerufen wird WORDDIF, was Sie wollen.

So installieren Sie die benutzerdefinierte Funktion ...

Alt + F11, um den VBA-Editor zu öffnen

Wählen Sie im VBA-Menü Einfügen> Modul

Fügen Sie den folgenden Code in das VBA-Bearbeitungsfenster ein

Setzen Sie diese Formel wieder in Excel in C1 ein
=WORDDIF(A1,B1) 
Code:
Function WORDDIF(rngA As Range, rngB As Range) As String  Dim WordsA As Variant, WordsB As Variant Dim ndxA As Long, ndxB As Long, strTemp As String  WordsA = Split(rngA.Text, " ") WordsB = Split(rngB.Text, " ")  For ndxB = LBound(WordsB) To UBound(WordsB) For ndxA = LBound(WordsA) To UBound(WordsA) If StrComp(WordsA(ndxA), WordsB(ndxB), vbTextCompare) = 0 Then WordsA(ndxA) = vbNullString Exit For End If Next ndxA Next ndxB  For ndxA = LBound(WordsA) To UBound(WordsA) If WordsA(ndxA) <> vbNullString Then strTemp = strTemp & WordsA(ndxA) & " " Next ndxA  WORDDIF = Trim(strTemp)  End Function 

Quelle https://www.mrexcel.com/forum/excel-questions/486708-compare-two-strings-find-difference.html

Suchen Sie den Teil der Zeichenfolge, der eine Zeichenfolge in einer Zelle von einer Zeichenfolge in einer anderen Zelle unterscheidet

1 Antwort auf die Frage

Wie kann ich den String-Unterschied (Elementary) anzeigen lassen?

Verwandte Probleme