Wie Vergleiche ich text in Excel-Zellen, um zu sehen, wenn gleiche Wörter gefunden werden?

Ich glaube, Sie wäre am besten gedient, mit VBA, die Sie könnte dann die Bereitstellung als User Defined Function (UDF)

• halten Sie altf11 zu gehen, um den VBE
• Einfügen ... Modul
• kopieren und einfügen in den folgenden code
• halten Sie altf11, gehen Sie zurück zu Excel

Dann rufen Sie die Funktion in Excel wie

=DupeWord(A1,A2)
zum finden von übereinstimmungen zwischen A1 und A2

Usr Defined Function

Function DupeWord(str1 As String, str2 As String) As String
Dim vArr1
Dim vArr2
Dim vTest
Dim lngCnt As Long
vArr1 = Split(Replace(str1, " ", vbNullString), ",")
vArr2 = Split(Replace(str2, " ", vbNullString), ",")
On Error GoTo strExit

For lngCnt = LBound(vArr1) To UBound(vArr1)
vTest = Application.Match(vArr1(lngCnt), vArr2, 0)
If Not IsError(vTest) Then DupeWord = DupeWord & vArr1(lngCnt) & ", "
Next lngCnt
If Len(DupeWord) > 0 Then
DupeWord = Left$(DupeWord, Len(DupeWord) - 2)
Else
strExit:
DupeWord = "No Matches!"
End If

End Function

Use inside VBA

Sub test()
MsgBox DupeWord("dog, cat, rabbit, mouse, lion, bear, tiger", "sausage, pickle, dog, cat, elephant, bread")
End Sub

InformationsquelleAutor brettdj