试试这个: Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyStr = Cells(1, 1) Str_yes = "" l_str = Len(MyStr) If Target.Row = 1 And Target.Column = 1 Then For i = 1 To l_str MyStr1 = Mid(MyStr, i, 1) If IsNumeric(MyStr1) Then Cells(1, 1).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 End If Next End If End Sub