如果两个单元格至less有一个常用词，则为true，否则为false：Excel公式

我有两列填充文字。 我想比较两个单元格之间的任何相同的单词行。 如何用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：
甲……….乙……….Ç
Text，1，another … Text，2，another ……'= CommonWords（A1，B1，“，”）（Result another，Text）
为了能够使用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. 如果需要的话，您将需要使用它来忽略单词中的空格。