如何用VBA将单元格中部分文字改变颜色？

问题引入

查找工作表中A列所有单元格中的“灌木”字符，并将“灌木”字符标红。效果如下：（不一定是“灌木”，有可能是其他字符串，这里只是举例）

知识点

■For...Next...循环

■IF语句

循环专题：循环-控制程序执行（精华版）

■Mid函数、Len函数

字符串处理函数专题文章：VBA常用字符串处理函数，都在这里了

■Characters 对象

●作用：返回一个字符对象, 该对象表示对象文本中的字符范围。 使用 Characters 对象可为文本字符串内的字符设置格式。

●语法：Range对象.Characters (要返回的第一个字符的位置, 要返回的字符数)

其实简单的就是这种效果：

解决代码

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        If InStr(Cells(i, 1).Value, Cells(2, 3).Value) Then '单元格内存在查找的字符串的时候再循环，减少循环次数
            For num = 1 To Len(Cells(i, 1).Value) '对单元格内字符串每个字符进行循环
                If Mid(Cells(i, 1).Value, num, Len(Cells(2, 3).Value)) = Cells(2, 3).Value Then '当截取的字符串是目标字符串的时候
                    Cells(i, 1).Characters(num, Len(Cells(2, 3).Value)).Font.Color = vbRed '标颜色，利用Characters对象
                Else
                End If
            Next
        Else
        End If
    Next
    MsgBox "完成！"
End Sub