比较每行多个单元格中的字符串

Question

我创建了一个电子表格，其中包含两行彼此相邻的单词。我设法将文本分开，以便在每个单元格中只有一个作品。现在我想将行开头的一个单词与行尾的单词进行比较。假设我开头有5个单词，最后有5个单词：所以程序应该进行5 * 5比较。我已经在循环结构中提出了一个循环，但不幸的是，这似乎并不起作用。如果你能看一下并告诉我该怎么做，那就太好了。

    Sub CompW()

    Dim WordA As String, WordB As String, Match As Integer
    i = 2
    For i = 2 To 5008

        Match = 0
        k = 16
        Do While Not IsEmpty(Cells(i, k))
        WordB = Cells(i, k)
        j = 10

            Do While Not IsEmpty(Cells(i, j))
            WordA = Cells(i, j)

                If StrComp(WordA, WordB, vbTextCompare) = 0 Then
                Match = Match + 1
                End If
                j = j + 1
            Loop
        k = k + 1
        Loop

    Cells(i, 22).Value = Match

    Next
    End Sub