如果两个单元格至少有一个常用词，则为真，否则为假：Excel 公式答案

【问题标题】：IF two cells have at least one common word, true, else false: Excel formula如果两个单元格至少有一个常用词，则为真，否则为假：Excel 公式
【发布时间】：2016-10-14 02:50:20
【问题描述】：

我有两列填充了文本。我想逐行比较两个单元格之间的任何相同单词。如何使用 Excel 公式或 vba 函数来完成？

最好的问候，

【问题讨论】：

单词用一个空格隔开？？
那看我的回答。

标签： excel if-statement formula vba

【解决方案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

【讨论】：

【解决方案2】：

需要第三列。即：
A........B........C
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：

知道哪些词被重复分析而不是真假陈述不是更好吗？
您需要使用它来忽略单词中的空格，如果需要，大写。

【讨论】：