如果兩個單元格至少有一個常用詞，則爲true，否則爲false：Excel公式

Question

我有兩列填充了文本。我想比較兩個單元格之間的任何相同單詞的行方式。如何用Excel公式或vba函數完成這項工作？

此致

Answer 1

嘗試使用以下UDF（）：將需要

Public Function Kompare(s1 As String, s2 As String) As Boolean 
    ary = Split(s1, " ") 
    bry = Split(s2, " ") 
    Kompare = False 
    For Each a In ary 
     For Each b In bry 
      If a = b Then 
       Kompare = True 
       Exit Function 
      End If 
     Next b 
    Next a 
End Function 

Answer 2

第三列。 IE：
A .......... B .......... C
Text，1，another ... Text，2，another ......'= CommonWords（A1，B1， 「」）（結果另，文本）
爲了能夠使用UDF粘貼以下：

Function CommonWords(Text1 As Variant, Text2 As Variant, Character As Variant) 
Dim ArrayText1 As Variant: ArrayText1 = Split(Text1, Character) 
Dim ItemArrayText1 As Variant 
Dim ArrayText2 As Variant: ArrayText2 = Split(Text2, Character) 
Dim ItemArrayText2 As Variant 
Dim SummaryCommonWords As Variant 
    For Each ItemArrayText1 In ArrayText1 
    If InStr(Text2, ItemArrayText1) > 0 And InStr(SummaryCommonWords, ItemArrayText1) = 0 Then SummaryCommonWords = IIf(SummaryCommonWords = "", ItemArrayText1, ItemArrayText1 & Character & SummaryCommonWords) 
    Next ItemArrayText1 
    For Each ItemArrayText2 In ArrayText2 
    If InStr(Text1, ItemArrayText2) > 0 And InStr(SummaryCommonWords, ItemArrayText2) = 0 Then SummaryCommonWords = IIf(SummaryCommonWords = "", ItemArrayText2, ItemArrayText2 & Character & SummaryCommonWords) 
    Next ItemArrayText2 
    CommonWords = IIf(CStr(SummaryCommonWords) <> "", SummaryCommonWords, "No common words!") 
End Function 

作爲OT：

1. 不會告發知道哪些詞重複分析而不是真實的，虛假的陳述會更好嗎？
   
2. 如果需要的話，您需要使用它來忽略單詞中的空格。