macros来search列可能相似的特定单词列表

我有一个Excelmacros，search列中的string列表。

例如：假设我在我的专栏中search“太阳”。 如果一个单元格的值是“我们有一个美丽的阳光”，那么这个单元格包含string“sun”，并且“sun”被写在单元格的旁边，以便稍后识别匹配

我的问题是：如果在我所寻找的string列表中，首先有“阳光”，然后是“太阳”，那么macros将首先在“我们有一个美丽的阳光”旁边写上“阳光”，然后它会写“太阳”。

这在技术上是正确的，这就是我的macros观所做的事情，但是更重要的是要知道整个单词“阳光”而不仅仅是“阳光”。

我需要添加一个条件，如“查找是否在我的列的每个单元格中有这个string， 并且如果没有其他string从我正在寻找的列表中。

我不知道从哪里开始

这是我的代码，如果它可以帮助：

Sub Reperer_Ch_Caracteres() y = Range("B" & Rows.Count).End(xlUp).Row For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Keyword = Range("A" & i) Set c = ActiveSheet.Columns(2).Find(Keyword, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing And IsEmpty(Range("C" & i)) = True Then firstAddress = c.Address Do c.Offset(0, 1).Value = Keyword Set c = ActiveSheet.Columns(2).FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If Next i End Sub