Question

excel如何在输入的时候，指定的字符字体变为红色，如把“百度知道的”“知”字变为红色，如下图所示

用函数也行，公式也行

Answer 1

用替换工具：Ctrl+F，
在对话框里点替换旁边的“选项”，
可以设定替换后的字体、颜色等。

Answer 2

Sub xxx()

For Each rng In Range("a1:d10")

    For i = 1 To Len(rng)

        If Mid(rng, i, 1) = "知" Then

            rng.Characters(Start:=i, Length:=1).Font.ColorIndex = 3

        End If

    Next

Next

End Sub

Answer 3

这个除了用VBA写一个工作表事件外,普通的方法不能实现这个需求

追问

你能帮忙做一个吗

追答

工作表标签上右键→查找代码, 粘贴下面的代码到窗口
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Len(Target)
If Mid(Target, i, 1) = "知" Then
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
End If
Next
End Sub

回到工作表直接输入数据就行