Excel 如何替换 所有单元格内特定字的颜色

比如如何把每个单元格里一串字符中的“李”、或者“0.5”替换成蓝色,单元格内其他字符保持原来的颜色。请教!!Excel2007我使用过一次但后来就弄不来了... 比如如何把每个单元格里一串字符中的“李”、或者“0.5”替换成蓝色,单元格内其他字符保持原来的颜色。请教!!
Excel2007 我使用过一次 但后来就弄不来了
展开
 我来答
ExcelPower
推荐于2016-12-06 · 专业Excel公式图表数据分析VBA
ExcelPower
采纳数:4495 获赞数:11863

向TA提问 私信TA
展开全部

改变单元格内部分特定字符的颜色,如果批量操作,需要用宏处理,

如下例,将范围内 所有字母A 变成红色



操作步骤:

右键点击工作表标签,查看代码,如下代码复制进去

Private Sub CommandButton1_Click()
  Cells.Font.ColorIndex = 1
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Integer
For Each rng In Selection
    i = 1
    Do While InStr(i, rng, "A") > 0
        rng.Characters(InStr(i, rng, "A"), 1).Font.ColorIndex = 3
        i = InStr(i, rng, "A") + 1
    Loop
Next
End Sub

触发程序,选中即变色,效果如下图:

HuaGeG
2009-05-12 · TA获得超过7708个赞
知道大有可为答主
回答量:8038
采纳率:26%
帮助的人:2219万
展开全部
Sub 换颜色()
For i = 1 To 100
Cells(i, 1).Select
For x = 1 To Len(Cells(i, 1))
If Mid(Cells(i, 1), x, 1) = "李" Then
ActiveCell.Characters(Start:=x, Length:=1).Font.ColorIndex = 5
End If
Next
Next
End Sub

设a列有100个数据,以上代码可将其中的所有“李”字设置为蓝色。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友907d091a4
2009-05-12 · TA获得超过8242个赞
知道大有可为答主
回答量:3234
采纳率:0%
帮助的人:4248万
展开全部
EXCEL中不可能做到这样,一个单元格内所有字符都得是同一种颜色。

确定一定以及肯定以上答案
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式