求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