使用instr函数在特定单元格中查找动态文本字符串的完全匹配

Question

我创建了一个循环，该循环遍历一个表，并将值（如果存在）插入到另一个表的特定单元格中

我只需要找到一次要插入Sheet7.Cells(r, "G")中的文本值，但是前提是那里不再存在确切的文本字符串。问题在于文本值的措词非常相似，但是却有所不同。 我当前的代码大概没有添加其中的一些，因为它认为由于某些单词的重复，它们已经插入到单元格中了。有什么办法解决这个问题？

Do While k < 119 And r < 118

        access = Sheet3.Cells(i, k)

            If access <> "" Then

              If Sheet7.Cells(r, "G") <> "" And InStr(Sheet7.Cells(r, "G"), access) = 0 Then
              Sheet7.Cells(r, "G") = Sheet7.Cells(r, "G") & vbNewLine & access
              Else: Sheet7.Cells(r, "G") = access
              End If

              If Sheet7.Cells(r, "F") <> "" Then
              Sheet7.Cells(r, "F") = Sheet7.Cells(r, "F") & vbNewLine & Sheet3.Cells(i, "C")
              Else: Sheet7.Cells(r, "F") = Sheet3.Cells(i, "C")
              End If

          End If

         k = k + 1
         r = r + 1 

        Loop