使用Excel VBA根据字符串中的单词更改单词的颜色？

Sub ChangeWordColor()
    Dim cell As Range
    Dim words() As String
    Dim word As Variant
    
    ' 设置要更改颜色的单元格范围
    Set cell = Range("A1")
    
    ' 设置要更改颜色的单词
    words = Split(cell.Value, " ")
    
    ' 循环遍历每个单词
    For Each word In words
        ' 判断单词是否满足更改颜色的条件
        If word = "要更改的单词" Then
            ' 更改单词的颜色为红色
            cell.Characters(InStr(cell.Value, word), Len(word)).Font.Color = RGB(255, 0, 0)
        End If
    Next word
End Sub