Excel宏在一张纸上查找wordbank并与另一张纸进行比较

Question

你好我有一个excel工作表，想写一个宏，它将查看工作表1的内容并找到wordbank中的任何单词（表2）并突出显示工作表1中的匹配单词。这可能吗？谢谢你的帮助！

例如，如果我将整篇文章从此link复制到工作表1中的一个单元格中，而工作表2中的文字是：how，Euro，2015，future - 这些宏将突出显示这些单词表1。

示例代码如下所示，如果找到单词但它没有突出显示单词，它可以突出显示单元格。

Sub Find_Word（）

Dim FindWord As String, Found As Range

FindWord = "euro"

Set Found = Sheets("Sheet1").Cells.Find(What:=FindWord, _
                                        LookIn:=xlValues, _
                                        LookAt:=xlPart, _
                                        SearchOrder:=xlByRows, _
                                        SearchDirection:=xlNext, _
                                        MatchCase:=False)

If Not Found Is Nothing Then
    Found.Select
Else
    MsgBox "No match found."
End If

End Sub