Question

excel中，怎么给某个单元格里的指定汉字换颜色，比如红色？如下图

把“一”变为红色

怎么设置啊？





Answer 1

双击这个单元格，成为编辑模式，然后选中里面需要红色字的部分，然后直接选字体颜色

Answer 2

Sub a()
For Each rng In UsedRange
    For i = 1 To Len(rng)
        If Mid(rng, i, 1) = "一" Then
           rng.Characters(i, 1).Font.Color = vbRed
        End If
    Next i
Next
End Sub

如果量大，可以编写一个小程序做。

追问

Excel 2007 具体怎么操作？

追答

右键工作表标签（或者ALT+f11，打开VBE窗口，双击你的工作表）——查看代码——粘贴代码——运行。

追问

怎么运行？在B1那一行输入“=a(A1)”?

追答

按ALT+F11键——弹出VBE窗口，双击工作表（比如SHEET1），粘贴我给你的代码。运行（F5键）

Answer 3

只能变“一”？想变一个词，怎么写代码呢？

Answer 4

这个需要编写VBA程序

追问

请问怎么编写呢？

追答

借用下面的代码给你演示下，请看附件。