在 Excel VBA 中比较两个单元格中的文本

Question

我是 VBA 编程的新手，希望有人能提供帮助。我一直在阅读其他一些帖子，但太复杂了，以我的水平无法理解。

我正在尝试比较 Excel 中的两个单元格，并尝试匹配两个单元格中的单词，看看它们之间是否有匹配的单词。 (see picture for reference)

Answer 1

试试这个小UDF()：

Public Function WhatsInCommon(A As String, B As String) As String
    arya = Split(LCase(A), " ")
    aryb = Split(LCase(B), " ")

    WhatsInCommon = ""
    For Each aa In arya
        For Each bb In aryb
            If aa = bb Then
                If WhatsInCommon = "" Then
                    WhatsInCommon = aa
                Else
                    WhatsInCommon = WhatsInCommon & "," & aa
                End If
            End If
        Next bb
    Next aa
End Function

例如：

注意事项：

1. 假设“单词”是由空格封装的字符串
2. 转换为小写

编辑#1：

这个版本只考虑大于两个字符的单词：

Public Function WhatsInCommon(A As String, B As String) As String
    arya = Split(LCase(A), " ")
    aryb = Split(LCase(B), " ")

    WhatsInCommon = ""
    For Each aa In arya
        If Len(aa) > 2 Then
            For Each bb In aryb
                If aa = bb Then
                    If WhatsInCommon = "" Then
                        WhatsInCommon = aa
                    Else
                        WhatsInCommon = WhatsInCommon & "," & aa
                    End If
                End If
            Next bb
        End If
    Next aa
End Function