excel怎么把单元格内某个字标红，其他字不变？

忘了注明是批量标红，有上千行，一个一个找不太现实。

2024-11-05 22:39:08

推荐回答（5个）

回答（1）：

具体操作如下：

1、在电脑中打开Excel文件，找到需要修改字体颜色的单元格。

2、在此单元格上双击鼠标，进入该单元格的编辑状态。

3、拖动鼠标选定需要更改字体颜色的汉字即可。

4、在开始菜单内点击选择字体颜色快速启动按钮。

5、鼠标在其他单元格内单击，可以看到修改的字体颜色效果了。

回答（2）：

1、选中这个字，点击“格式”－“单元格”

2、选择字体颜色为“红色”即可。

回答（3）：

简单个事，用条件格式，2007下：全选你要的区域-然后点击条件格式-新建格式-选“只为包含”，单元格的值为你要改颜色的值，-选格式选字体颜色-确定即可。2003同样是。

记得采纳哦

回答（4）：

打开表格，按ALT+F11打开VB编辑器后，按F7在出来的窗口把代码复制进去，修改好代码中你需要标红的字符，后回到表格，选中需要标红的区域，尽量不要选太多不相关的区域，那样会导致速度很慢。选好区域后按ALT+F8 选择对应的宏执行。

楼上那个代码虽然可以实现，但是字符多的话速度肯定是非常慢的。而且只能一个字符

Sub AAA()
    Dim R As Range, L As Long, S As String
    Application.ScreenUpdating = False
    S = "红"  '要标记的字符
    L = Len(S)
    For Each R In Selection
        If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed
    Next
    Application.ScreenUpdating = True
End Sub

Sub AAA()

Dim R As Range, L As Long, S As String

Application.ScreenUpdating = False

S = "红" '要标记的字符

L = Len(S)

For Each R In Selection

If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed

Application.ScreenUpdating = True

End Sub

回答（5）：

这个功能是需要用VBA来完成的，代码如下

Sub 彩色涂色()
Dim Zifu As String, Rng As Range, i As Byte, Leni As Byte
Zifu = InputBox("必须字符", Title:="输入要涂色的字符", Default:="")
For Each Rng In Selection
Leni = Len(Rng)
For i = 1 To Leni
If Mid(Rng, i, 1) = Zifu Then
With Rng.Characters(Start:=i, Length:=1)
.Font.Color = RGB(255, 0, 0)
End With
End If
Next i
Next Rng
End Sub
使用时，先用鼠标选中要替换的范围，然后运行这个VBA即可