Excel VBA查找变色

从C1:D10中查找同行第m列中的字符（n为连续字符数），把相同字符变成红色Sub CGC()  Dim i As Long  Dim tmpRange As Range  Dim strS As String  For Each tmpRange In Range([c1], [d10])    strS = tmpRange.Text    For i = 1 To Len(strS)      If Cells(tmpRange.Row, m).Text Like "*" & Mid$(strS, i, n) & "*" Then        With tmpRange.Characters(Start:=i, Length:=1).Font          .ColorIndex = 3        End With      End If    Next  NextEnd Sub