求EXCELL高手，帮写一段VBA，主要用于查找一个单元格部分关键字并标红

难道是要这样？看下面的代码：

Sub ChaZhao() '查找关键词，并加粗标红

    Dim rng As Range, i%

    For Each rng In Range("A2:B8") 'A2:B8是要处理的数据区域

        For i = 1 To Len(rng.Value) 

            If Mid(rng, i, 2) = "中国" Then '中国是关键词，数字2是关键词字符数

                With rng.Characters(Start:=i, Length:=2).Font '数字2是关键词字符数

                    .FontStyle = "加粗"

                    .Color = 255

                End With

            End If

        Next i

    Next

End Sub